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Rescue Esmeralda from the tower 
Create colourful disc menus 
Inspect your micro’s meniory 
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DATACOM PUBLICATIONS: 
407F Hockley Centre, 
Birmingham B18 6NF, 

Tel: 021-233 1800 


Trade enquiries 
welcome 


EXECUTION - They told me it would be bad but I never 
thought it would be like this.,.must keep a clear mind.. ‘thoroughbred racing snails’ battle to the finish. 
can't afford to panic...time is fast running out...don't 

think my nerves will stand much more of this!!! A brain 
straining memory bashing game of words. 


INTERPLANETARY TRADER - The most addictive, 


mind blowing, feature packed space adventure you will 
ever experience on your AMSTRAD CPC 464. Defend 
your Cargo against space pirates...navigate asteroids, 
black holes, magnetic storms...Total concentration is 


required in your quest to become a GALACTIC 
MEGABILLIONAIRE!!! 


SNAIL BACE - Unbearab 


Super features include computer calculated odds, form 
guide, excellent sound effects, smooth m/¢ graphics. 
Rivetting excitement guaranteed 


X 


All games just\ 


£5.95 | 


Each 


These games will be available 
from your dealer 

or POST FREE” 

direct from: 

DATACOM PUBLICATIONS: 
using the coupon provided 
(or just write in) 

* U.K. only - Overseas add £1 p & p 


PLEASE J Starstrike(Amstrad) £6.95 
RUSH ME! 1 Starstrike (Spectrum) £5.95 


Cheques/P.O.s t 
Realtime Softwear, Prospect House, 32 Sovereign Street, Leeds LS1 4BT 
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CLASSICS 


Now’s your chance to play those old-time favourites 
on your Amstrad. Four games for the price of one! 


Keep up to date with the latest happenings and new 
arrivals in the busy, expanding world of the Amstrad. 


BEGINNERS 


Decisions, decisions. We go from 
WHILE... WEND loops to IF... 
THEN statements via conditional 
Operators as we try to make up our 
micro’s mind. 


SOFTWARE SURVEY 


Our team of frank and thorough reviewers look at 
some of the latest releases for the CPC464 and 664. 


MACHINE CODE 


The latest episode of our easy to 
follow series: 16 bit loads and the 
combined registers BC, DE and HL. 


AMMON 


Investigate the Amstrad’s memory map with this 
powerful but easy to use machine code monitor. 


Computing with the Amstrad 


E®fawarysis 

Get squares before your eyes as this routine for 
animated action comes under scrutiny. 

LID aLieAToIRE 


Our puzzles expert introduces a simple version of Nim 
that will bemuse and baffle your friends for hours. 


Esmerelda‘s been imprisoned again, this time in the 
Boston Stump. Guide intrepid Hunchback to remove 
her to safety, avoiding all the obstacles in your way. 


OPEN FILE 


Create colourful menus for your discs with this 
“intelligent”, easy to use utility. 


READY REFERENCE 


Mike Bibby’s Z80 machine code course — a summary 
of all the opcodes and firmware calls used so far. 


if ars BEAT 


More useful hints on finding your listing errors from 
our converted and conscientious Mr Plod. 


160 SOUND 


Get in the queue to learn about channels in 
the sixth part of Nigel Peter's fascinating 
series. 


Learn to stay within tolerable limits. 
Our series ends with a bang as Kevin 
Edwards introduces collision detec- 
tion routines. 


ros TBAG 


The part of the magazine you write yourselves. Just a 
small selection from the many interesting and 
informative letters you've been sending us. 


ORDER FORM 


Take out a subscription, order a back issue, cassette 
tape, disc, dust cover or binder — and you can do it all 
on one simple form. 


Design and manipulate your own exciting graphic 
displays with this comprehensive screen editor utility. 


Computing with the Amstrad 


June 1985 §& 


Computing with the Amstrad 
6 June 1985 


Computing with the Amstrad presents 


CLASSIC 
GAMES 


on the 


Amstrad 


Here’s something really special from Computing with the 
Amstrad! We’ve commissioned four rip-roaring programs 
that no games collection is complete without — the kind 
of games that really stand out in the short history of 


microcomputing. 


This value-for-money 
package includes two 
top-rate machine code 
arcade classics plus a 
traditional word game 
and a futuristic adventure. 

There’s hours of 
enjoyment and something 
to suit everyone in this 
superb collection. 


Computing with the Amstrad 


Reese 2S 2 


Please send me Classic Games on the Amstrad Vol. 1 (Vv). 


Cassette £5.95 6048 
3” Disc £9.95 6049 


Payment: please indicate method (“) 
(1) Access/Mastercard/Eurocard 


(es La) eae) afer hae) 


No. Ut1 14 
C7 Barclaycard/Visa 
No. Ltt J tris LLry cris 
C3 cheque/Po made payable to Database Publications Ltd. 


Name 


Address 


Signed 


jen 3 
Computing with the Amstrad, FREEPOST, Europa House, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. 


(No stamp needed if posted in UK). Please allow 28 days for delivery 


You canalso | 061-4800171 
order by phone 24 hours 
Don’t forget to quote your credit card number and full address. 
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Now YOU can fly with the 
legendary Red Arrows - 
in the most challenging 
flight simulation ever! 


It’s the most exciting flight simulator ever engineers, mathematicians — and the Red Arrow 
written for a home computer - the product of pilots themselves. 

many months of dedicated work by some of Every ounce of power contained in the micro, 
Britain’s top programmers, enthusiastically and its enhanced sound and graphics 

aided by the talents of aircraft designers, capabilities, is used to give the utmost realism 


to re-creating the most spectacular aeronautical 
displays ever seen in the skies of Britain. 

You start by practising take offs and landings. 
Then, once you have won your wings, you fly in 
formation as part of the Red Arrows team. 
There’s no margin for error as you fly a mere six 
to 10 feet from each other - at speeds of 

between 300 and 350 miles an hour! 

But the real drama begins as you plunge into 
the death-defying manoeuvres that have 
been thrilling crowds at air shows for the 
last 21 years. 

On the panel in front of you are all the 
instruments you need - plus a screen giving you 


Lecterns n. Tey ) 


the Red Arrows ba 
Poa he D 


of the Red Arrows ‘in your hono 


LEMS RN Nae Po 20 an external view of the complete formation you 
are flying. Slip out of line for a second and the 
Now onsale at: eagle-eyed Red Leader will be on the radio 
ordering you back into position. 
BOOTS comer Currys Dixons The program comes with a detailed flight 


Greens RUMBELOWS S2ce0um handbook that will soon give you the confidence 


WHSMITH and other leading computer stores to take YOUR place alongside the ace pilots of 
the Red Arrows, even if you’ve never flown 


before! 
ORDER FORM 
Ti 5i"Disc 3"Disc 34" Disc © [ 


‘ape J 
(£8.95) (£11.95) (£12.95) (£12.95) Tisisvletione ofthe 
intricate manoeuvres you 
will be able to carry out 
with this meetin, 


Amstrad 
Atari .. 
BBCB 


N/A o N/A 
Oo 


Comm. 64 .. 
Electron . 
Spectrum... 


oooooo 
< 
> 
ri 
< 
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wish to pay by: 


' 
O Access/Mastercard/Eurocard| No. 
[ear es ee po} i pipet ys Lp yy 


(SS ey eS ee ae ee ee 
O Cheque/PO made payable to| Database Publications Ltd. 


Signed 
Send to: Database Software, FREEPOST, Europa House, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. 
(No stamp needed if posted in UK) Please allow 28 days for delivery 


O Barclaycard/Visa No. | 


YOU CAN ALSO 061-480 0173 | Don't forget to quote your cal 
ORDER BY PHONE: (24 hours) card number and full address. 
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-_ Agripping, realistic 


computer simulation 
for the 


Commodore 


Let your fingers do the talking...with this special 


Now you can teach 
your Amstrad to talk! 


How it works 


AT the heart of the dk’tronics speech synthesiser lies an 
incredibly powerful chip that has split the English 
language into its component parts — or allophones as 
they are known. 

Altogether there are 59 allophones and five pauses 
stored in the speech chip's internal ROM. These can be 
combined to create a virtually unlimited vocabulary. 

The potential of this chip is realised by dk’tronic’s 
sophisticated, yet simple to use software. The brilliant 
program design enables the Amstrad to actually speak 
the words you type, in straightforward English, without 
having to resort to complicated phonetic spelling or 
difficult programming techniques. 

Written to be as user friendly as possible, the 
synthesiser adds eight powerful commands to Amstrad 
Basic. 

If you prefer complete control over your programs, 
though, full details are given for Basic and machine 
code programmers to exploit the tremendous scope of 
the synthesiser without using the software supplied. 

In fact this system supports four different modes of 


use. 

The first mode allows you to sound words using only 
the Amstrad’s normal Basic commands. However, as 
you get more ambitious with your speech, a second 
mode is provided, This gives eight extra commands to 
use from Basic, making using the synthesiser even 
easier. 

The third mode is the text to speech converter. 
When this is in operation speech can be typed in using 
normal English and the Amstrad does the rest. There’s 
no need to work out the allophones as in the other two 
modes — the Amstrad does it for you. 

As if all this wasn’t enough there’s the fourth mode. 
This has the synthesiser converting whatever appears 
on the screen into speech. Using this, you can literally 
listen to your listings! 


AE 26 | fat iy oa 40 | fire Ne | NG 44 | bangs TH [TH 29 thin 
A | AY 28 | great 6 | 662 | 61 | go ey 23 | cot TH | DHL | 18 | they 
Al | AIR | 47 | hair 1G | G63 | 34 | wig a | OW 53 | snow TH | DH2 | 54 | bathe 
AR | AR 59 | fara GU | G61 | 36 | guest O | UWL | 22 | do us| ak {5 | succeed 
AU | AQ 24 | aught GE | ZH 38 | beige 00 | UW2 | 31 | food UH | 00 3@ | caok 
B | BBL | 28 | rib H | HHL | 27 | he OR | OR 58 | store Us| ¥¥i | 49 | compute 
B | BB2 | 43 | big H | HH2 | 97 | hoe QU} OW 32 | ouch Vo o|W 35} even 
C | KKi | 42 | common 1 | 1H 12 | fitting oy | oY 5 | toy WWW 46 | wool 
SCa/6G 8 | uncle aly 6 | sky Pelee 9 | pub WH | WH 48] whig 
K | KK2 | 41 | sky IR | ER2 | §2 | bird R | RRi | 14 | real Y |Y¥¥2 | 251 yes 
CH | CH 5@ | church dg | dH {@ | jury R | RR2 | 39 | brain Lad 43| z00 
D | DDL | 21 | could Vests 45 | luck R | YR 68 | fear PAL| PAL | @ | 18 0 
D | 002 | 33 | do Eas 2 | angle § | 93 59 | sat PAZ| PAZ | 1 | 30 a8 
a3 7 | bend Moy MM 16 | milk SH | 5H 37 | shirt PAS| PAS | 2 | 58 aS 
Boge 19 | see N | NNL | 11 | earn Tee i ate PAS | PAS | 3 | 180 0S 
ER | ER Si | cater N I NN2 | 56 1 no Ty V2 IS" istop PASI PAS | 5 | 208 8 


Column 1: Sound. 


Column 2: Allophone name. 


These are the sounds = and pauses - you can create on your Amstrad 


Column 3: Allophone number. 


YOU can add an exciting new dimension to 
computing with your Amstrad - with the help of 
this remarkable new product from dk’tronics. 


It comes complete with the latest and very 
versatile speech chip, a powerful stereo 
amplifier and two high-quality 4in speakers, 
specially designed to match the Amstrad 
CPC464. _ 


And because this is a special reader offer it 
comes to you at £5 off the normal retail price of 
of £39.95! 


Fitting it is simplicity itself. All you have to 
do is to plug the synthesiser’s interface into the 
floppy disc port at the back of the Amstrad and 
the jack plug into the stereo socket - and away 
you go! 

With its volume and balance controls you will 
find you can put dramatic realism into the sound 
output of your Amstrad. All sounds that 
previously came from the Amstrad’s 1!in mono 
speakers are now sent out via the interface in 
stereo. 


So even when you're not using it as a speech 
synthesiser, it can bring startling depth and 
drama to the music and sound effects of all your 
favourite games! 


Column 4; Example word. 


Computing with the Amstrad reader offer! 


Look at what this 
package offers you: 


* Speech synthesiser with almost 
unlimited vocabulary 


* Easy-to-use commands - it accepts 
normal English words 


* Built-in stereo amplifier with twin speakers 
* Programs can run while the speed chip talks 


OD ohne cond che devon Teo ee ie. ee aa 
Please send me the dk’tronics speech synthesiser for my Amstrad CPC464 


I enclose cheque for £34.95 (incl. VAT, p&p) 
made payable to Database Publications Ltd. 


Eight additional 
Basic commands 


iSPON Speech on. 
iSPOF Speech off. 


wish to pay by 
O Access Card No. E sans 
QO VisaCard No. = = 


'FEED,n Feed speech buffer direct. Signed 
‘FLUS Clear speech and text buffers. 

!SPED,n Speech speed. Name 
‘OUTM,1 PRINT text to speech. 

+OUTM,2 Screen output to speech. Address 


:0UTM.3 Output to screen and speech. 


POST TO: Speech Synthesiser Offer, Database Publications, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. one 


Allow 28 days for deliver) SS 
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AMSTRAD! 


Three of our best-selling children’s programs are now available on cassette 
or disk for the CPC464. 


There’s fun and games with the Mr Men in: 


PAStsterPS «= ED wees. Tuere 


with the M2: Men with the Mx: Mon 


For children aged 4 and up, First Steps with the For children aged 5 and up, Here.and There 
Mr Men introduces early takes the basic directional fi 
directional and object skills developedin First /// 4 
and letter recognition Steps, expanding them |} 


skills in four colourful into actual verbal | 
games. No reading instructions and simple 
skills are needed, and route planning. Again, | 


akey guide and there are four 
full-colour instruction colourful games plus 
book/storybook fully illustrated 


accompany the MS? instruction 
program sis, E  book/storybook. 
. Cassette £8.95 auanns Cassette £795 
Disk £11.95 985 Disk £10.95 


CAESAR’S TRAVELS 


A unique interactive program/storybook package for children aged 3 
and up, Caesar's Travels features 38 different story routes, with 18 
different endings. The 64-page storybook expands the stories 
developed on screen, and both 
book and program can stand 
alone. Children will be 
captivated, and we , 
think adults will findita 3 
lot of fun too! 


Cassette £7.95 19) 
Disk £10.95 


And there's plenty more in the pipeline! 


MIRRORSOFT programs are available from good software stockists 
everywhere or by direct mail from 
——————E Eee 


SBRITISHS 


Bs Mirror Group Newspapers Ltd 
hiiitin_ttiatcmsiiailiels Holborn Circus London ECi1P 1DQ Tel: 01-822 3580 


Amstrad’s Alan Sugar with the new CPC664 


Enter the 664 


AMSTRAD’S second home 
computer — the CPC664 — 
has been warmly welcomed 
by the computer press. 

It is essentially a CPC464 
with built-in 3in disc drive anda 
number of enhancements to 
Basic and the operating system 
making the most of the inte- 
grated disc facility. 

The machine comes with a 
choice of monitors and will cost 
£339 with the green screen and 
£449 with colour monitor. 

Virtually all existing CPC464 
software will run on the new 
664 — plus a large proportion of 
the existing CP/M80O software 
base of 5,000 programs. 

The CPC664 incorporates a 
built-in cassette interface so 


SHARES SOAR 


AMSTRAD boss Alan 
Sugar became darling of 
the City following the 
launch of the CPC664. 

The company’s shares, 
which had been suffering 
in the wake of the bad 
press that had hit Acorn 
and Sinclair, jumped 4p to 
72p. 

Talk in the City was 
that profits would be 


Computing with the Amstrad 


that existing tape based 
software can be loaded. 

An Amstrad spokesman said: 
“We believe the CPC664 repre- 
sents an extremely competi- 
tively priced package for the 
serious user upgrading from 
earlier machines. 

“The first-time buyer now 
has an obvious choice of 
hardware that comes packed 
with the applications potential 
of CP/M and an existing base of 
more than 200 other items of 
software from the wealth of 
high-quality entertainment 
material available for the 
CPC464”. 

A second disc drive is also 
available for the CPC664, price 
£1159) 


almost doubled when 
Amstrad’s year ends on 
June 30. That would pro- 
duce a cool £17.5 million. 
Sugar himself refused 
to be drawn on profit 
forecasts. But he wasn’t 
too reticent about sales of 
micros. He planned to sell 
600,000 of them this year, 
he said — compared to 
200,000 in 1984. 


Coming soon: 


Yourown | 
passport to 

the expanding, 
exciting world of 
communications! 


IN response to considerable demand from our readers, 
Computing with the Amstrad is about to launch the 
first fully versatile communications package for the 
Amstrad. 

Until now we have been unable to find a product that 
measured up to our own high standards in terms of value and 
performance. So we decided we owed it to our readers to make 
one available. 

Fortunately we have been able to bring together a brilliant 
software team and one of the country’s foremost modem 
manufacturers. In consultation with our technical experts, they 
have now come up with a communications package that 
represents the best possible value. 

Our specifications were exacting. We needed a product that 
would encompass ~all the fascinating sources of electronic 
information available. These include: 


* Telecom Gold. It’s Britain’s leading carrier of 
electronic mail. Coupled with MicroLink, the most 
exciting telecommunications innovation for years, it 
means that Amstrad owners will be able to communicate 
nationwide simply and cheaply with other enthusiasts 
without any of the restrictions of earlier systems. 


* Prestel. The source of 300,000 pages of 
information, exciting electronic magazines and clubs. 


* Bulletin Boards. Scores of these electronic notice 
boards are springing up all over the country, with a 
fascinating mix of news, views, helplines and programs. 


To accomplish all this, we needed a multi-baud rate, BT 
approved modem - and preferably one that was already well 
established. It was vital that it linked to the telephone network 
via a standard jackplug, avoiding the noise difficulties and signal 
loss often encountered with acoustically coupled modems. 

And, of course, we had to have an extremely versatile piece of 
software, simple enough for the novice to use, but 
comprehensive enough to satisfy even the most demanding 
hacker. 

Not only did it have to support all the above with the 
minimum of fuss, it also had to take non-standard systems and 
user-to-user communication in its stride. 

As if all this wasn’t enough, we wanted to be able to prepare 
messages off-line, then load them from tape or disc — and of 
course download to tape, disc or printer. And if we could log-on 
to MicroLink and Prestel automatically from disc... 

Well we managed it. In fact we more than managed it, as 
you'll find out from the special communications supplement in 
next month’s Computing with the Amstrad. In addition to 
revealing the final exciting details of our package, we'll be 
introducing you to the whole rapidly-expanding communi- 
cations revolution, in our usual easy to follow manner. 

Communications is the biggest thing in the micro world today 
and we're sure you'll want to be part of it. 
Computing with the Amstrad will show you how. 


Don’t miss next month’s issue- 
for an offer you cannot refuse! 
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Pictures 
are 
on tap 


LATEST release for the CPC464 
from software house Kuma 
Computers is Artwork, a gra- 
phics utility package enabling 
users to draw pictures. 

It includes circle, ellipse, line 
and box drawing capabilities 
and allows full use of all 
available screen modes and 
colours. 

Options for fast colour fill and 
complete screen scroll in all 
directions are included, plus the 
ability to load and save com- 
pleted pictures to either tape or 
disc. Text may be included 
within pictures. 

Artwork can be used to 
produce pictures for inclusion in 
other programs and has an 
extensive set of help screens 
accessible via the help menu, 
allowing even a novice to utilise 
the package to the fullest 
extent. 

The software has been writ- 
ten to be fully compatible with 
Amstrad disc drives and inter- 
face. When discs are fitted the 
user can enjoy faster load and 
save times. 

A demonstration picture is 
included on the tape to give the 
user an idea of the capabilities 
of the package, which costs 
£9:95; 


SORRY, NO MARK Il ROM 


THE arrival of the CPC664 has 
dashed the hopes of CPC464 
owners wanting to upgrade 
their Basic. 

The new Amstrad has the 
Mark II ROM, an extended 32k 
chip which contains an en- 
hanced Basic which fills some of 
the gaps left by the old 464 
version. 

But the new ROM will not be 
made available to present 
owners of the CPC464, nor will 
it be going into the current crop 
of 464 machines being 
produced. 

The reason given is com- 


FOR 464 


patibility with existing software 
from publishers who haven't 
followed the guidelines laid 
down by Amstrad for program- 
ming. 

However observers feel that 
since the upward compatibility 
of the 464 with the 664 is much 
extolled by Amstrad, this reason 
is less than convincing. 

At the launch Amstrad boss 
Alan Sugar intimated that 
“technical boffins” who contact 


OWNERS 


Amsoft would be able to get 
hold of the Mark Il ROM. 

But when Computing with 
the Amstrad talked to Roland 
Perry, Amstrad’s technical chief, 
the next day this was not the 
case. 

A system of allocating ROMs 
would be introduced at an 
unspecified later date, but only 
to software houses and “gen- 
uine enthusiasts’ was all Perry 
would promise. 


Gorilla for 
Amstrad 


MICRO POWER has released 
two arcade classics — one its 
best-selling Killer Gorilla — on a 
double-sided cassette for the 
Amstrad. 

First released two years ago, 
Killer Gorilla is probably the 
biggest-selling game ever for 
Acorn Computers after Elite. 

The other half of the package 
is Gauntlet, the graphics and 
action of which have been 
improved for the Amstrad. 

A feature of the game is 
“stereo sound”, which can be 
further enhanced by routing it 
through a hi-fi system. Price of 
the double-sided cassette is 
£9595: 


Getting 


A NEW utility product for the 
CPC464 has been released by 
Cable Software under the Elec- 
tric Studio label. 

The software, named Am- 
sprite, contains a full sprite 
operating system and editor. 

The fact that it is designed to 
be used from Basic and incor- 
porated in the end user's own 
programs makes Amsprite one 
of the most powerful utilities on 
the market, says Cable. 

The sprite operating system 
supports up to 40 sprites with 
all the usual assignable 
attributes including wrap, col- 
lision, bounce, obstacle, blank 
and reset. 

The Sprite Editor/Assembler 
supports almost every conceiv- 


all your 
Sprites 
right... 


able function the user may 
require when designing his 
sprites, according to Cable. 

The features include border 
colour section, view image, 
clear image, zoom image, partial 
or full scroll in four directions, 
flip, invert, mirror, animate 
selected images, load, file, 
store, recall, 16 colour mask, 
selection of pens with access to 
a 16-colour paint box. 


More help for small firms 


COPING with the day-to-day 
problems of running a small 
firm, or even a home, could be 
made easier thanks to the 
introduction of new business 
software for the Amstrad. 

From Triptych, Dialog and 
Quest International, the pro- 
grams will run on both the 
CPC464 and CPC664. They 
cover business aspects from 
invoicing to project planning 
and labelling of mail. 

Triptych has three titles in its 
range — Entrepreneur, Project 
Planner and Decision Maker. 


They are available on tape, price 
£24.95 each, and disc, price 
£29.95. Entrepreneur is a 
business start-up kit and 
includes tutorial, teaching and 
application programs, and 
manual. 

Project Planner is aimed at 
helping the small businessman 
plan his work more efficiently, 
allowing him to input his own 
jobs schedule. 

Decision Maker has the same 
format but includes an 80 page 
manual, applications and teach- 
ing programs. It allows many 


“what if’ considerations to be 
made during the decision- 
making process. 

Dialog, currently enhancing 
all programs to make them fully 
disc compatible, has six titles. 

The first, DFM Database and 
Mail Labels, is a comprehensive 
system with sort and search 
routine and a program to 
produce mail replies from data- 
base files. Price £14.95. 

Other programs, which are all 
£29.95, include Day-base, a 
desk-top diary, Stockaid, a stock 
control system, Invostat to help 


with invoicing, the Transact 
book-keeping system and 
Home Accounts Manager. 

Quest has taken its Padmede 
range of five business programs 
and adapted them for the 
Amstrad. 

It has combined the three 
most useful to the small 
businessman — Sales Invoice, 
Sales Ledger and Stock Control 
a £99 price tag. 

The remaining two programs, 
Produce Ledger and Nominal 
Ledger, are also being sold 
together at £66. 
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MINI Office, the chart topping 
business package for the 
Amstrad from Database 
Software, has been officially 
endorsed as an aid for the 
handicapped. 

The software is specifically 
recommended in ‘Micros for 
Handicapped Users’, a book 
published by Helena Press of 
Whitby, Yorkshire. It carries a 
foreword by Baroness Masham 
of Ilton. 

Revolutionarily priced at 
£5.95 — business packages can 
cost up to several hundred 
pounds — Mini Office is a suite of 
four programs. 

All professionally written, 
they are made up of a word 
processor, database, spread- 
sheet and graphics. 

The software package is 
singled out in the book in the 
chapter ‘Jobs for housebound 
people”, which deals with the 
handicapped contemplating 
setting up their own businesses. 

“We found Mini Office very 
useful’, Peter Saunders of 
Helena Press told Computing 
with the Amstrad. 


NEW BOOKS 


THREE new books about the 
CPC464 have been published 
by Bernard Babani. 

They are An Introduction to 
Z80 Machine Code (£2.25), An 
Introduction to Programming 
the Amstrad CPC464 (£2.25), 
and How to Write Amstrad 
CPC464 Games Programs 
(£2.50). 

The publications are avail- 
able from bookshops, computer 
stores and the larger branches 
of W.H. Smith. 


Iry flying - with the Red 


THE world famous, death 
defying RAF aerobatics 
team the Red Arrows has 
helped create a completely 
new kind of flight simulator 
for the Amstrad. 

Red Arrows, which is 
launched this month, has 
been written with the 
closest cooperation of the 
daredevil fliers themselves. 

Programmers spent many 
hours with the pilots and 
their flight crews making 
sure the finished game 
would faithfully reproduce 
all the thrills of a real Red 


Arrows 


Arrows flying display. 

The game puts the player 
at the controls of one of the 
nine British Aerospace 
Hawks in the Red Arrows 
team. It tests to the limit 
their skill and precision in a 
series of complicated aero- 
batic manoeuvres. 

And each purchaser can 
enter a high score competi- 
tion to win a weekend with 
the Red Arrows pilots at 


their base at RAF Scramp- 
ton, have lunch with them in 
their mess and sit at the 
controls of a Hawk. There 
will even be a Red Arrows 
flypast in their honour. 

The game, which will be 
on sale at the many air shows 
where the Red Arrows are 
appearing this summer, 
costs £8.95 on cassette and 
£12.95 on 3in disc. 

Part of the proceeds from 
the sale of the game will go 
to service charities, includ- 
ing the RAF Benevolent 
Fund. 


Business 
accounts 
software 


A COMPREHENSIVE suite of 
business accounting software 
packages for the CPC464 with 
CP/M and disc drive or the 
CPC664 has been released by 
Camsoft. 

The new range includes 
Cambase, a database system, 
invoicing, stock control, sales, 
purchase and nominal ledgers, 
and payroll. 

A wide range of integration 
levels is available and systems 
can run on single or dual drive 
computers. Price is £39 a 
module. 

The range extends over 26 
different combinations of 
modules to a fully integrated 
stock control, invoicing, sales, 
purchase and nominal ledger 
system available for £169. 
Telephone ‘‘hot line” support is 
included in the price. 

The programs are written in 
machine code using the CP/M 
operating system and Camsoft's 
own CADO control system. 


More Amstrad CP/M 


TIMATIC systems has started implementation of standard CP/M 
software packages for the Amstrad. 

The company now has six business packages, nine CP/M 
languages and 12 system utilities available on Amstrad format 3in 


discs. 
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Updated Basic 


for new model 


APART from the mechanical 
changes in the 664, a number of 
improvements have been made 
to the Basic 1.0 built into the 
CPC464. To mark these chan- 
ges the Basic in the CPC664 is 
called Version 1.1. 

First of the new features is a 
Fill command allowing an 
irregular shape to be filled with a 
colour. 

There have always been 
facilities to change the graphics 
pen ink and graphics paper ink, 
also the plotting mode — or, xor, 
and. But two new commands, 
GRAPHIC PEN and GRAPHICS 
PAPER, plus additional par- 
ameters for PEN, MOVE, 
MOVER, PLOT, PLOTR, DRAW 
and DRAWR make these sim- 
pler to access. 

For example, a MOVE com- 
mand can set the graphics pen 
ink, and a PEN command can set 
the text background mode — 
transparent or opaque. 

TAG now uses the current 
background mode giving the 
option of transparent paper. The 
command MASK is used to 
specify dotted lines. 

New commands have been 
added to bring more of the 
firmware facilities into Basic. 

COPYCHR$ is a new func- 
tion that returns a character 
read from the screen and 
CLEAR INPUT is a single 


command to clear the keyboard 
buffer. 

FRAME waits for frame 
flyback to occur, useful for the 
synchronisation of screen 
images, and CURSOR controls 
the display of the system cursor. 

Several improvements have 
been made to Break handling 
and error recovery. On Break 
Cont will ignore a break caused 
by hitting Esc. All Escs can be 
trapped, including Breaks that 
occur in file operations. 

A new function called DERR 
will return a disc error code, 
making it easy to handle a disc 
error from within a program. 

The line editing and auto line 
numbering facility. AUTO have 
been enhanced. 

Garbage collection speed has 
been improved and the passing 
of string parameters to external 
commands has been simplified. 


Quiz taped 


THE first of a computer game 
series modelled on the popular 
television quiz show 3-2-1 will 
be available to Amstrad users 
this summer. 

Players will be able to sendin 
their taped game plus scores 
and the top three will be invited 
to take part in a grand final. 
Price is expected to be £9.95. 
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LET’S get to work right away this 
month! Take a look at Program I: 


1@ REM PROGRAM 1 
20 MODE 1 

38 number = 8 
40 WHILE ~1 


5@ number = number + 1 
6@ PRINT “number is now “;nuaber 
78 WEND 


Program | 


It's identical to Program XII in last 
month’s issue, and prints out the 
whole numbers from 1 upwards. 

It's quite an interesting program, 
and well worth typing in — the next 
few programs are based on it. 

Perhaps the most striking thing 
about Program | is the WHILE ... 
WEND loop. As we saw, WHILE and 
WEND act as “brackets” around a 
section (or body) of code we wish to 
repeat. In this case the lines we're 
repeating are 50 and 60. 

Of course, you can’t just have 
WHILE on its own — the micro needs 
to know WHILE what? 

So we tag on to WHILE what is 
known as a condition — the “what” 
part. 

Here the condition is simply —1. 
This, as we saw, is the micro’s 
numeric code for true. So the 
condition is WHILE true, and since 
our micro believes everything until 
told differently, this boils down to 
WHILE forever. 

In other words, we just keep on 
repeating the loop until we break out 
of it by pressing the Escape key twice. 

Another interesting feature of the 
program is line 50: 


5@ nuaber = number + 1 


The effect of this line is to increase 
the value of number by one. 

Remember, we do what's on the 
right of the equals sign first, so line 50 
reads: Take the value labelled 
number, add one to it, then give this 
new value the label number. 

The equals isn't really an equals 
sign as we know it — how could a 
number be equal to itself plus one? 
It's an assignment and you can read it 
as becomes. 

Line 50 then reads: Number 
becomes what was labelled number 
plus one. 

So line 50 increases the value of 


number by one and line 60 prints this 
new value out. Since these two lines 
are inside the indefinite WHILE ... 
WEND loop, the process keeps on 
repeating itself. 

One last point to make is that, 
although | give number value zero in 
line 30, the first number printed out is 
1. Can you see why? 

Actually, line 30 is superfluous 
since the Amstrad assumes a numeric 
variable to be zero unless told 
otherwise. 

Last month | challenged you to 
alter line 50 so that the numbers 
output went up in two's. Program II 
does the trick: 


1@ REM PROGRAM II 
20 MODE 1 
3@ nuaber 2 


4@ WHILE -1 

5@ nuaber = nuaber + 2 

6@ PRINT “number is now “snueber 
7@ WEND 


Program II 


Easy isn’t it? | also asked you to 
see if you could make it increase in 
steps of 4 and 10. If you haven't 
managed it yet, | think you'll be able 
to now, using Program II as a guide. 

Another poser | gave you was to 


start the output at 1000 and go down 
in steps of one. Here, instead of 
adding one in line 50, we'll have to 
take away one. Program III shows 
how it’s done: 


1 REM PROGRAM IIT 
20 MODE 1 
3@ number = 1001 


40 WHILE -1 

5@ nuaber = nuaber - 1 

6@ PRINT “nusber is now “snumber 
70 WEND 


Program III 


Notice that we give number the 
value 1001 in line 30. This is because 
we Want the output to start at 1000. 
Before number is printed out (line 
60), its value is decreased by one (line 
50). By starting at 1001 we allow for 
this subtraction. 

We also came across the first of an 
interesting tribe, the inequalities. 
Called in computerese “relational 
operators”, they're concerned with 
which of two numbers is the greater 
or lesser, whether they are equal of 
not equal and so on. 

You probably came across them at 
school. For example: 

ey 
means that the value of x is greater 
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than the value of y. 

Similarly, 

dy 

means the value of x is less than y. 

Of course, you tend to forget which 
way round the inequalities sign, >, 
should go. The way | remember it is to 
say that there are two ends — the wide 
or big end, and the pointed or small 
end. The “big” number goes next to 
the big end, the “small” number goes 
next to the small end. 

This means that: 


7>4 
which reads seven is greater than 
four is true, while: 
258 ¢ 158 
which reads two hundred and fifty is 


less than one hundred and fifty, is a 
downright lie! 


1@ REM PROGRAM IV 
28 MODE 1 
3@ nuaber = @ 


40 WHILE number ¢ 24 

5@ nuaber = nuaber + | 

6@ PRINT "number is now "snumber 
7@ WEND 


Program IV 


Program IV uses an inequality in 
the condition attached to the WHILE. 
Line 40 reads: 


40 WHILE number < 24 


This means that we keep on 
repeating the loop bounded by the 
WHILE ... WEND so long as the 
value of number is less than 24. 

As soon as line 40 meets a value of 
number that's not less than 24 it 
stops doing — we say drops out of — 
the loop. 

That's straightforward enough, but 
something that might cause you 
concern is that the number 24 itself is 
printed out. You might think that, 
since the loop was to be repeated 
while number was less than 24, 24 
itself shouldn't be printed out. 

However, you're forgetting the 
effect of line 50 which adds one to 
number before printing it out. After 
the program has reached and printed 
out the value 23, the value of numbers 
is 23, so you are allowed to repeat the 
loop, since 23 is less than 24. 

Line 50 then increases the value of 
number by one to give 24 and line 60 
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prints it out. Of course, since number 
is now 24, the loop won't continue. 

Try running the program with line 
40 changed to: 


4@ WHILE number > 24 


Nothing seems to happen, does it? 
This is because, since line 30 sets 
number to zero, the condition for the 
loop (in line 40) is not met. 

Therefore the loop isn’t done — we 
skip or drop through it. And, since 
there isn’t any more program, it 
simply ends. 

The same line of reasoning should 
explain the results you get if you now 
change line 40 to: 


40 WHILE number < 8 


As well as inequalities, there is an 
equality, the = sign. We can combine 
them in expressions such as: 


Number <= 24 


This reads the value of number is 
less than OR equal to 24. 
Similarly, 


fuaber >= 24 


reads the value of number is greater 
than or equal to 24. 

Of course, we met a combination 
of inequalities last month — the <> 
pair, meaning not equal to. 

To see how one such combination 
works in practice, take a look at 
Program V. Line 40 reads: 


46 WHILE number <= 24 
which | don’t think you'll have any 
problem interpreting. 


When you run the program you'll 
discover that this time 25 is the last 


18 REM PROGRAM V 

20 MODE 1 

3@ nusber = @ 

4@ WHILE number <= 24 


5@ nuaber = number + | 
6@ PRINT “nusber is now ";nuaber 
78 WEND 


Program V 


number output. 

You see this time, unlike Program 
IV, you can enter the loop with 
number equal to 24. Line 50 then 
increases it by one, and line 60 prints 
out the resulting 25. 

When it tries to do the loop again, 
though, number isn't less than, or 
equal to, 24 and so it skips the loop. 

The last time we tried to use 
greater than in the condition for a 
WHILE ... WEND loop — in a 
modification to Program IV — we 
didn't achieve anything too spec- 
tacular. Program VI shows how it can 
be useful in this role. 

Before you run it, have a stab at 
working out what the last number 
printed will be. 


1@ REM PROGRAN VI 
20 MODE 1 
38 nuaber = 51 


48 WHILE nuaber > 38 

5@ nuaber = number - { 

60 PRINT “nuaber is now “snuaber 
7@ WEND 


Program VI 


Well, from line 40 we know that 
the loop will only be done if the value 


| 
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of number on entry is greater than 30. 
(Incidentally, line 30 ensures we start 
bigger than 30 — and line 50 tells us 
we're going down in ones.) 

The last possible value that will 
“activate” the loop will be 31. It can’t 
be 30 or under, since then number 
wouldn't be greater than 30. 

So the last time the WHILE ... 
WEND loop is entered, number is 31. 
Line 50 then decreases it by one and 
line 60 prints out the resulting value, 
30. 

If the micro then tries to do the 
loop again, it won't be allowed to, 
since 30 isn’t greater than 30. 

WHILE... WEND loops aren't the 
only Basic words we can use with 
conditions. There’s the IF ... THEN 
statement as well. 

IF ... THEN couldn't be easier to 
use, since it mirrors the English 
language so well. 

For example, there’s the standard 
parenting phrase: 


IF you don't go to bed THEN 
I will get cross 


or the marital: 


IF he says that once aore 
THEN I will explode 


The idea is you give a condition 
after the IF, and after the THEN you 
specify the dire consequences if that 
condition is met. 

Of course, if the condition isn’t 
met, then you don’t do what's after 
the THEN. 

(Did you notice that last sentence 
is an IF... THEN statement?) 

Often the condition we specify in 
our programs will involve equalities or 
inequalities. For example: 


IF number > 1088 THEN PRINT 
"That‘s a big nuaber" 


or 


IF number (> guess THEN 
PRINT “You guessed wrongly" 


Program VII uses these ideas to 
tell us whether a number is greater 
than, equal to or less than ten. We 
input the number in line 30, then lines 
40, 50 and 60 screen it for each of the 
three cases or conditions. 

If number matches one of the 
conditions (that is, it's greater than, 
equal to or less than 10), the 
appropriate message is printed out. 


10 REM PROGRAM VIT 

2@ NODE 1 

38 INPUT " A nuaber"snumber 

40 IF number > 18 THEN PRINT “nuaber 


is greater than 10" 

S@ IF number = {@ THEN PRINT “number 
equals 18" 

6@ IF number < 18 THEN PRINT "nuaber 
is less than 18" 


Program VII 


Notice that it's impossible for any 
value of number to cause more than 
one of the three messages to be 
printed out. 

Program VIII develops the ideas 
we've been discussing. Lines 50 to 
80 do the work of Program VII, 
comparing the number to 10. 


1@ REM PROGRAM VIII 

28 MODE t 

3@ counter = 8 

4@ WHILE counter < 3 

SQ INPUT "A number"; nuaber 

6@ IF number > 1@ THEN PRINT "nuaber 
is greater than 18" 

7@ IF number = 1@ THEN PRINT “nuaber 
equals 16" 

60 IF number < 10 THEN PRINT “nuaber 
is less than 16" 

98 PRINT 

188 counter = counter + { 

118 WEND 

128 PRINT “Finished” 


Program VIII 


The new factor is that this 
comparison is wrapped up in a 
WHILE ... WEND loop. We want to 
do our comparisons three times 
(heaven knows why!). So I've 


introduced the appropriately named 
variable counter to keep track of how 
many times we do the WHILE ... 
WEND. 

Initially counter is set to zero (line 
30), and each time through the loop 
it’s increased by one (line 100). So, 
the first time through the loop counter 
is zero, the second time it’s one and 
the third time it’s two. 

Since we want the loop done three 
times only, we'd better make sure 
that counter never gets to three — 
otherwise it will have done the loop a 
fourth time. 

We cater for this in the condition 
attached to our WHILE 


48 WHILE counter < 3 


It may seem a bit odd to have it 
less than three, but remember, we 
started counting at zero. 

If you think it would be clearer, you 
could start counting at one by 
changing line 30 to: 


3@ counter = 1 
You'll then need to change the 
loop condition by altering line 40 to: 
4@ WHILE counter <= 3 
Incidentally, can you see how: 


4@ WHILE counter <> 4 
and 


4@ WHILE counter ¢ 4 


are equivalent to this new version of 
line 40? Personally, | think our first 
alteration the clearer, since it 
specifies the 3. 

Line 90, by the way, is just to space 
things out a bit, and line 120 lets you 
know the program has ended. 


1@ REM PROGRAM IX 

28 MODE 1 

3@ WHILE answer$ <> “no” 

40 INPUT "Shall we repeat this"; 


answer$ 
58 PRINT 
6@ WEND 


Program 1X 


Don't forget that we can use the 
combination <> in the sense of ‘not 
equal to” with strings as well as 
numeric variables. Program IX shows 
a rather silly example of this. 

It’s very similar to a program we 
had last month, so it shouldn't cause 
you any problems. 
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Perot Stepo 


18 REM PROGRAM X 

20 MODE 1 

30 IF answer$ = "no" THEN B0TO 78 
40 INPUT "Shall we repeat this"; 


answers 
5@ PRINT 
68 GOTO 38 
70 END 


combination of IF ... 
GOTOs. 


Program X 


Now look at Program X. Believe it 


or not, this is the exact equivalent of 
Program IX. Instead of using WHILE 


. WEND, though, I've used a 
THEN and 


Up till now, we've only used PRINT 


after a THEN. However, you can use 
any Basic keyword, including GOTO. 


GOTO, which we've already met, 


makes the micro jump to the line 
number specified and carry on 
operating from there. 


Line 40 inputs the value of a 


variable answers$ in response to the 
question: “Shall we repeat this?” 

Line 50 prints a blank line for 
space, then we jump immediately to 
line 30 via a GOTO in line 60. 

Line 30 then analyses our 
response to the question. If we 
answered other than no, it continues 
with the (rather trivial) program. If we 
answered no, it leaves the program. 

Line 30 uses a GOTO tagged on to 
the end of an IF... THEN statement. 

In effect it says, IF the value of 
answer$ is no, THEN GOTO line 70. 

So if we had input no, the effect of 
line 30 would be to make us GOTO 
line 70. Line 70 contains the Basic 
keyword END which, as its name 
suggests, causes the program to end 
execution. 

On the other hand, any other 
answer doesn't meet the condition, 
so we don’t do what's after the THEN, 
but simply continue with the pro- 
gram. 

You might be wondering what 


happens the first time the micro 
meets line 30. After all, we haven't 
input any value for answer$. 

Well, the Amstrad assumes that, 
until we've given a variable a value, it 
has no value whatsoever. It certainly 
can't have the value no then, so the 
program doesn’t do what's after the 
THEN, but continues as normal. 

| think you'll agree that this is an 
awful lot of work to achieve what we 
managed so simply with a WHILE... 
WEND loop in Program IX, and the 
latter is far easier to understand. 

GOTOs, with their tendency to 
leap about programs like March 
hares, are a prime cause of obscurity 
and hidden bugs in programs. 

Good programmers tend to use 
them rarely — if ever — since there are 
often clearer and simpler alternatives. 
| hope you'll avoid them too. 


@ Next month we'll look at 
another way to create loops, without 
using WHILE ... WENDs or GOTOs. 


IS PAPER WORK GETTING ON TOP OF YOU ? 


CAN BE YOUR 
STEPPING STONE ‘ 


TO EFFECTIVE FINANCIAL AND 
ADMINISTRATIVE CONTROL 


PAYROLL 
PURCHASE/SALES LEDGER 
STOCK CONTROL 

NON VAT ACCOUNTS 

CASH PLANNER 

MAILING LIST 


£29.95 
£29.95 
£17.95 
£17.95 
£12.95 
£17.95 


THE PRICES ABOVE ARE FOR THE CASSETTE VERSION 
OF THESE PROGRAMS, DISC VERSIONS NOW AVAILABLE 


FOR THE AMSTRAD, CBM AND 


ALL SOFTWARE PROVIDED BY 


a | 


TT | 


21 UNION STREET 
RAMSBOTTOM, LANCS 
PHONE: 070-682 7775 


Computing with the Amstrad 


BBC. 


ABACUS, IS FULLY 
SUPPORTED BY THE COMPANY. 
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=Haystack 


Perivherals 


A’n’F 
Chuckie Egg 
ABACUS 
Cash Planner 
Mailing List . 
Non Vat Accounts 
Payroll ......... 
Purchase/Sales Ledger . 
Stock Control 


Chemistry Revision 
History Revision 

Physics Revision® 

ADDICTIVE 
Football Manager 
Software Star . 
ALLIGATA 
Blagger .. 


Defend or Die 

ACTIVISION 

Ghostbusters .. 

AMSOFT 

American Football 9.95 
Amsgolf ........ 8.95 
Amsword (Advanced) 19.95 
Amsword (Easy) 9.95 
Astro Attack 8.95 
Centrecourt . 8.95 
Concise Basic 19.95 
Concise Firmware Spe ; 19.95 
Cubit ........ 8.95 
Decision Maker 21.95 
Detective ... 8.95 
Devpac Ass/Disass 24.95 
Entrepreneur 21.95 
Guide to Basic | 19.95 
Guide to Basic II 19.95 
Harrier Attack 8.95 
Hisoft PASCAL* 34.95 
Home Budget* 19.95 
Hunchback . 8.95 
Jammin* 8.95 
det Boot Jack . 8.95 
Master Chess 8.95 
Masterfile .. 21.95 
Mr Wongs Loopy Laundry . 8.95 
Mutant Monty .... 8.95 
Pitman Typing Tutor 9.25 
Project Planner™ 21.95 
Punchy . 8.95 
Quackajack* 8.95 
Roland/Caves 8.95 
Roland in Space 8.95 
Roland/Sq. Bashing . 8.95 
Roland in Time 8.95 
Screen Designer 14.95 
Snooker 8.95 
Splat! . 8.95 
Spreadsheet* 19.95 
Starwatcher 17.45 
Stockmarket* 8.95 
Xanagrams . 8.95 
AMSOFT/BES 

Animal, Vegetable, Mineral . . 
Happy Letters .. 8.95 
Happy Numbers 8.95 
Happy Writing . 8.95 
Map Rally 8.95 
Osprey! 9.95 
Timemat 8.95 
Timeman Two . . 
Wordhang 

Worldwise 

ANIROG 


Flightpath 737 
House of Usher 
Moon Buggy” 


ARTIC 
World Cup Football .............c02:ceeceeeeeeee 7.95 


ASK 


Number Painter 


Please Send: 


OUR 
PRICE 
6.90 


CPC464 Softwa 


8 MIDGROVE, DELPH, OLDHAM OL3 5EJ Tel: 045 77 5229 


BLACK KNIGHT 
Timebomb ... 
ccs 
Warzone 
cDSs 
Castle Blackstar* 
Steve Davis Snooker 
C.P. SOFTWARE 
Bridge Player .. 
Pinball Wizard 
Superchess .. 
CRL 
Rocky Horror Show™ 
CAMEL 
FlexiFrend 
Grasp .. 
DATACOM 
Empire . 
Executior 
Intergalactic Trader . 
Snail Pace ... 
Wumpus Mansion 
DESIGN DESIGN 
Dark Star .... 
Tank Busters 
3 DIGITAL INTEGRATION 
Fighter Pilot 
DURELL 
Combat Lynx 
Death Pit ... 
GEMINI 
Database ... 
Home Accounts 
Report Generator . 


HEWSON 
Fantasia Diamond 
Heathrow ATC . 
Technician Ted 
HISOFT 
Font 464* 
IMAGINE 

World Series Baseball® .................ccesseees 8.95 
INCENTIVE 

Confuzion 
Millionaire 
INTERCEPTOR 
Chopper Squad ... 
Forest at Worlds End 
Heroes of Karn ... 
Jewels of Babylon 
Message from Andromeda 
KNIGHTSOFT 
Animated Strip Poker 
KUMA 
Artwork .. 
Database 
Easi VAT* 


Fruity Frank 6.95 
Galaxia 5.95 
Gems of 7.95 
Holdfast .... §.95 


Home Budget 
Logo” 

Music Composer P 
Star Avenger .. 


Zen Assembler* 

LEVEL 9 

Adventure Quest ... . 
Colossal Adventure 9.95 
Dungeon Adventure . 9.95 
Emerald Isle . 6.95 
Lords of Time 9.95 
Return to Eden 9.95 
Snowball . 9.95 


LOTHLORIEN (WARMASTER) 

Johnny Reb 6. 
Redcoats .. 
Special Operations .. 


CARRIAGE 


Cheques/PO’s to: 
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ALL OUR PRICES 
INCLUDE VAT AND 


OUR 
PRICE 


HAYSTACK PERIPHERALS 
8 Midgrove, Delph, Oldham OL3 5EJ 
Tel: Saddleworth (04577) 5229 


e-Haystack 


Periphera 


MARTECH 


Brian Jack's Superstar Chall.” ................4 7.95 
MELBOURNE HOUSE 


Sherlock Holmes: 
SirLancelot . 


MICROBYTE 


MICROGEN 

Everyone's a Wally” 
Pyjamarama . 
MICROPOWER 
Ghouls .... 
Killer Gorilla/Gauntlet 
MIRRORSOFT 
Caesar's Travels* 
First Steps/Mr. Men . 
Here + There/Mr.Men . 


MOSAIC 

EMI TNG\VIKING Deveset cseceneteneserenrveaceasares 9.95 
MYRRDIN 

PlightiSimUbatian': 5<5.0..0c..rnensdseenssersabsee 11.95 


NEW GENERATION 
Machine Code Tutor* 
OCEAN 

Daley Thompson's Decathlon 
Hunchback Il... 
Kong Strikes Back . 
ODIN 

Nodes of Yesod* .. 
P.S.S. 

Battle for Midway ............0-.cseessesseeseee 9.95 
R+B 

Mission One — Project Volcano .... 
REALTIME 
SUIStarSttiKGteres.=-cns-c0s-cs0eaes -crancsvedsavee 6.95 
REDSHIFT 

SUNG UMPUd Sees ts e.sievs coer aatonveresees=steten 11.50 
SOFTWARE PROJECTS 

Jet Set Willy . 
Manic Miner . 
SUPERSOFT 
Interdictor Pilot 
TASKSET 
Superpipeline™ 
TASMAN 
TASCOPY . 
TASPRINT 
TASWORD 
TYNESOFT 
‘Supergran* 
ULTIMATE 
Knightlore* 


Android One .... 


WINTERSOFT 
Ring of Darkness 


* Please ring to confirm availability 


C15 Computer Cassettes 


OUR 
RRP PRICE 


(Box of 10) 


Pro-Ace Joystick ......... 11.95 


PHONE FOR DETAILS OF 
OTHER SOFTWARE — WE 
CAN SUPPLY ALMOST 


ANY AMSTRAD TITLE 
AVAILABLE! 


Overseas orders — Please add £1.00 per item. 
Send sterling money orders 


TITLES ARE ORIGINALS/2> 2 232 ewww 


Computing with the Amstrad 


—————— | 


IF you've ever fancied your 
chances as a jet pilot, then 
Digital Integration’s Fighter 
Pilot should appeal to you. 

This aircraft simulation puts 
you in the pilot's seat of an 
USAF F15 Eagle jet fighter, 
with options to allow straight- 
forward flying or air-to-air 
combat with enemy fighters. 

From a menu of options you 
may choose to start your flight 
from take off position or 
landing approach. My disas- 
trous attempts at landing soon 
convinced me that it was 
much easier to opt for take off. 

Taking either of the combat 
options starts you off in 
mid-flight around 20,000 feet. 
You may also select combat 
practice, where you are posi- 
tioned two miles behind the 
enemy plane at approximately 
the same height. 

If you can keep tail on the 
enemy it will appear in your 
gunsights at a distance of one 
mile, at which point with a 
little bit of luck you can blast it 
out of the sky. 

In practice mode the enemy 
doesn't fight back, but with 


Fly high 
a jet fighter 
simulator 


some experience you may like 
to attempt true air-to-air 
combat. 

With this option you will 
track the enemy with the help 
of your on-board computers 
before shooting it down. 

Be warned though, the 
enemy returns your fire, and it 
becomes a real dogfight. 

lf you really want to live 
dangerously you can lob in 
crosswinds and air turbulence, 
not to mention a blind landing 
in foggy conditions. 

The screen display is excel- 
lent. the top section is the 
pilot's cockpit view, in which 
you see the horizon, the 
runways on approach to lan- 
ding, and of course the enemy 


if you are in combat mode. 

The lower half is taken up 
by the instrument panels. 

There is quite a lot of detail 
to digest here and one soon 
learns the importance of 
keeping an eye on the most 
important instruments. 

Quite often | found myself 
carefully holding a correct 
course while paying no atten- 
tion to the fact that my altitude 
was rapidly approaching zero. 

The cockpit view can be 
changed to display a map of 
the area on which can be seen 
the four runways and various 
navigation beacons, etc. 

Any enemy aircraft in the 
area are also identified if you 
are in combat mode. | must 


confess to being a flight 
simulator addict, and | was 
particularly pleased with this 
program. 

The instructions are ade- 
quate, all the available options 
are described together with 
the instruments and controls, 
and there’s a little technical 
information to help you gain 
some flying experience. 

The program caters for 
keyboard or joystick control. 
Unfortunately | was only able 
to use the keyboard, which can 
be a little tricky at first. 

| have no doubt that the use 
of a joystick would certainly 
improve one’s control of the 
aircraft. 

Geoff Turner 


PLAYING SOCCER IN SAFETY 


DISAPPOINTED with 
England’s performances in 
international football? Think 
you could do better? 

Well here is a chance to put 
your money where your mouth 
is. Get a few friends together 
and play Artic’s World Cup 
Football. 

The Amstrad World Cup 
can be played by between one 
and eight players. Should 
there be an odd number of 
competititors then some lucky 
person will have to play the 
computer. 

At the start of the game 
each player chooses his team 
from a list of 10 international 
squads. 

The computer makes the 


iba 
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draw and displays the matches 
and the order in which they 
will be played. 

Once the formalities have 
been dispensed with we can 
get down to the action. 

The screen clears and is 
rapidly redrawn to display the 
centre section of the football 
pitch. 

It is at this point that the 
music begins and the teams 
run out onto the pitch to take 
up their correct positions. 

Each team has five players 
and the matches are played 
over 90 seconds. 

During play only one of your 
players is active at any one 
time, indicated by a change in 
the colour of his shorts. 


Tackling tends to be a 
matter of running into the chap 
with the ball and hoping to 
emerge from the crunch with 
the ball on your foot (just like 
the real thing). 

Travelling up and down the 
pitch causes the screen to 
scroll from left to right. This 
scrolling is not what you would 
call fluid, but when you're busy 
hacking at someone's ankles 
who cares? 

My favourite bit of the 
whole game is the bouncing 
action of the football when 
kicked. Clever use of shadow 
makes this very effective. 

Control of your player can 
be achieved by various means. 
Two joysticks (expensive), one 


joystick and the cursor keys 
(unfair), and finally the cursor 
keys and a cluster of keys to 
the left of the keyboard. 

| admit that control of such 
a game will always cause 
problems, but the provision of 
a user-defined key option 
would have made things much 
easier. 

The Amstrad World Cup 
may have its one or two little 
niggles but these are out- 
weighed by close attention to 
detail. 

Should things continue to 
deteriorate in real life this 
could be the only match in 
town where you can take the 
family in complete safety. 

Jon Revis 
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Ona 
sticky 
wicket 


CRICKET Captain, from 
Allanson Computing, allows 
you to try your hand as a 
county cricket captain without 
leaving your armchair. The 
program stores team lists for 
17 counties, but the game 
itself allows only 16 teams to 
take part in the knockout 
competition. 

Once you have decided 
which team to drop the 
program will display the 
names of players in all 16 
teams and you have the option 
of changing as many players 
as you like. 

This gives you the chance to 
join the Boycott controversy 
by dropping him from the 
Yorkshire team, or just being 
silly by fielding Maggie That- 
cher, King Kong and Batman. 

Before beginning the game 
you must choose the team you 
wish to captain and the 
difficulty level. If you have 
made team changes you can 
save the game at this point. 

An unusual feature of the 
save game feature is that is 
saves a complete game rather 
than a data file. This means 
that the saved game can be 
reloaded and run without the 
original program having been 
loaded first. 

There is a two player option 
and you must fight your way 
through the knockout com- 
petition with the computer 
controlling all the other teams. 

Each innings lasts for up to 
-20 overs of 3 balls and the first 
round match starts with you 
being asked to press the 
keyboard when two boxes are 
flashing. Depending on which 
box is lit, you will either bat or 
field first. 

The screen displays a three 
dimensional high resolution 
animated view of the field. 

You are given information 
about the batting and bowling 
skills of your team members 
and must make decisions on 
batting order and bowlers. 

Despite the good screen 


presentation and excellent 
sound effects, the game failed 
to give me a real sense of 
participation. 

This is particularly apparent 
on batting, when the only 
decision you have to make is 
whether to chance making 
two runs or not. Other than 
that, all you can do is sit back 
and watch the game proceed. 

With a little extra care this 
could have been an excellent 
game, but as it stands it failed 
to keep my interest for long. 

Steve Lucas 


Aliens from 
the arcades 


DEFEND or Die from Alligata 
is the first Defender to be 
produced for the Amstrad. 
Since the original version hit 
the arcades it has maintained 
a cult following. Ms 

Its attraction lies in the fact 
that it is fast, furious, and 
incredibly difficult to play. But 
once you have mastered the 
undoubted skills required the 
satisfaction felt is worth every 
drop of midnight oil burnt. 

In Defend or Die the 
marauding aliens are on the 
prowl again, and this time they 
are in the kidnapping business. 

Flying down they pick up 
passing humanoids and whisk 
them off to Mars or wherever. 

As the sole surviving star 
fighter pilot, your fellow man is 
relying upon you to save the 
day. Using your incredible 
skills you skim the planet's 
surface blasting everything 


that moves. 

The screen acts as a 
window onto the planet's 
surface. Travelling left or right 
causes the screen to scroll 
smoothly in that direction, 
revealing more of the land- 
scape. 

A small radar display allows 
you to monitor alien activity 
elsewhere on the surface. It 
only displays a series of 
coloured dots but these are 
easily interpreted. 

You can tell at a glance 
when some helpless 
humanoid is being dragged 
kicking and screaming 
skywards. 

Even at these times all is 
not lost. Speeding quickly to 
the little man’s aid you can 
unleash laser fire right be- 
tween the alien’s eyes. 

With the alien destroyed 
the man begins to fall 


Notes fine, but the chor 


WISE men have lately taken to 
sternly telling us that the 
games era is over. The home 
micre is not a toy, they 
thunder, and its future 
depends upon the provision of 
serious and practical software. 

Kuma has clearly been 
listening and offers Music 
Composer, ‘suitable for both 
expert and novice musicians”. 
Since | softly play wrong notes 
on my electric organ at all 
hours, | qualify somewhere in 
between. 

The 20 page manual is easy 
to follow although the two 
pages disclaiming liability for 
any damage worried me a 
mite. 

After five minutes loading, 
my Amstrad exploded into 
Bach's Violin Concerto. It 
didn't sound like violins but 
was a fair rendition. 

| followed prompts to 
obtain a display of the treble 
and bass clefs and an empty 
“top” and “bottom” stave — 
the lines you write musical 


notes on. 

Coaxed by the manual | 
entered the musical scale from 
lower to upper C, played it 
back and experimented with 
alterations. This quickly 
familiarised me with all the 
functions. 

Entering notes follows a 
simple logical sequence. Press 
M (middle octave) plus C 
(note) plus Enter plus Q and a 
quaver (half-length note) is 
printed at middle C. 

Some musical knowledge 
did seem necessary, although 
you could enter notes at 
random and hear how they 
came out. 

Rests and a selection of 
note durations from demi- 
semiquaver to dotted semi- 
breve, plus key signatures up 
to six flats or sharps are 
supported. 

You work on sequences of 
up to 200 notes at a time and 
can join, copy or erase 
sequences, save them as data 
and load them back. The 


tempo — playback speed — has 
20 settings and you can insert, 
delete or amend notes. 

You can also hear, but not 
see, your masterpiece trans- 
posed into a different key. 

It’s an excellent idea, just 
not taken far enough. Much 
memory could be freed by 
substituting variables and VAL 
for the repetitive data numbers 
in the listing. 

Machine code would free 
more and certainly improve 
the sometimes slow response. 

There is a one note per 
position restriction and this 
overlooks the musician's need 
for chords on the base clef and 
criminally wastes the 
Amstrad’s sound commands. 

Display of transposition and 
dumping screen to printer as 
instant sheet music would 
have composers rushing to 
buy. And a “sound keyboard 
and print screen” option for 
the musically ignorant would 
be nice. 

For off-computer use, you'll 
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earthwards. Flying with in- 
credible precision you inter- 
cept him in mid air and return 
him safely to the ground, 
gaining 1,000 points in the 
process. 

The sideways scrolling 
action is executed impeccably, 
with not a judder to be seen 
and the characters’ shapes 
and colours are identical to the 
original version. 

If all Alligata’s future 
releases are up to this 
standard they will soon be the 
top manufacturer=of quality 
Amstrad software. 

Carol Barrow 


Sorcery casts 
graphics spell 


I'D like to introduce you to 
Sorcery from Virgin Games. It 
is possibly the best game yet 
to appear on any computer. 
This arcade adventure for 
joystick only combines the 
complexity of an adventure 


Kura, 


SG tie Gh way 


need to copy the screen by 
hand and add chords. 

So, there’s no expert appeal 
but the novice’s long-suffering 
friends may find that the 
holiday slides torture is noth- 
ing compared to hours of ‘my 
latest composition”. 

Doreen Cox 


with the skill of an arcade 
game. Not only that, it has the 
best graphics | have ever seen. 

You play the last remaining 
sorcerer to escape capture by 
an evil wizard, the Necroman- 
cer. Your task is to roam the 
game's 40 screens using the 
objects you find to kill the 
demons that attack you on 
sight, and to free the other six 
sorcerers. 

The screens are entered 
and left by small doors and you 
usually have several doors to 
choose from on each screen. 

Any encounter with an 
enemy will reduce your 
energy, though you can top up 
by sitting on a cauldron! 

Since you start from any 
one of five locations it is 
difficult to give specific hints. 

However swords and 
similar weapons can be used 
to kill the hooded men who 
seem to spend most of their 
time cooking, and spells will 
kill the various demons and 
evil eyes that follow you. 

Scrolls, bottles and a few 
other things will unlock doors 
or reveal hidden passages. 

You score points for killing 
the Necromancer’s minions 
and for freeing the sorcerers. 

Overall, if this isn’t the 
game of 1985 then | will be 
very surprised. Graphically it is 
a masterpiece. This is one 
game that is likely to sell out 
quickly! 

Paul Gardner 


FLEXI-FREND is a home 
budget program from Camel 
featuring forward planning, a 
built-in calculator, automatic 
logging and printer options. 

| must admit that a program 
of this sort should be tested 
over a long period to discover 
its full potential or any 
drawbacks in the system. 

Obviously this is not prac- 
ticable for review purposes, 
but based on my experience 
and the potential described in 
the documentation, it certainly 
looks a promising program for 
the home market. 

Computer home budgeting 
requires several essential 
features if the use of a 
computer is going to be more 
efficient than the traditional 
paper and pen methods of 
recording information. This 
program boasts many such 
features. 

It can handle up to 35 
different accounts which can 
be updated on a monthly 
cycle. The names of the 
accounts are determined by 
the user in the special option 
called Initial Set-up. Once 
established they will appear 
each time the program is used. 

Changing the amounts in 
each of the 35 accounts can 
take place at any time during 
the month but the Monthly 
Salary option can only be 
completed once in each cycle. 

Various updates such as 
standing orders are made 
automatically, and can only 
occur once a month. 

The most attractive facility 
is the calculator. This can be 
called up at any time by 


pressing the Escape key twice, 
and is used like a conventional 
calculator. 

It is useful for working out 
percentage interest and VAT, 
and the calculated amounts 
can be entered directly into 
the monthly records. 

The printer options produce 
tables of information — another 
of the essential features of a 
successful home budget pro- 
gram. 

However should a printer 
not be available all is not lost. 
The tables are easy to read 
from the screen, and balances 
and capital inputs can be 
displayed in histogram form. 

The program is appealing 
because it has a straight- 
forward display that it not 
cluttered with unnecessary 
information. 

| would certainly recom- 
mend this program to the 
home user who wishes to set 
up his own easy-to-use bud-’ 
geting system. 

John Woollard 


Bovver for your 


WHEN you are condemned to 
play computer games all night 
long it is great to receive a 
game as refreshingly simple 
and original as Splat by 
Incentive Software under the 
Amsoft label. 

Unlike most arcade game 
heroes Zippy is not the space 
suited pilot of a sleek starship, 
but a runaway from a Flymo 
factory. 

It is currently trapped in a 
maze, and as a benevolent 
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gardener you must guide our 
grass munching buddy 
through eight different levels. 

If you are thinking at this 
point that there is nothing new 
about maze games, then you 
have never played Splat. 

The maze in this game is 
much larger than the screen, 
which merely provides a 
window onto it. 

Normally when this 
window technique is‘used it is 
the player who controls the 
scrolling direction of the 
screen. If you move upwards 
the screen also scrolls in this 
direction. 

In Splat however the roles 
are reversed with the screen 
scrolling randomly in any 
direction. Using some very 
nimble footwork and a certain 
amount of anticipation you 
must prevent Zippy from 
becoming squashed against 
the wall, hence the title. 

As Zippy explores the maze, 
an indicator at the bottom of 
the screen displays the per- 
centage of the maze that he 
has covered. 

Having explored 100 per 
cent he is guided to the nexi 
region of the maze and the 
indicator reset to zero. 

Being a conscientious little 
Flymo, Zippy should be 
encouraged to take every 
opportunity to trim the tufts of 
grass that are found in the 
maze. 

The scrolling, although sup- 
posedly random, can play 
some very dirty tricks, It is not 
unknown for the computer to 
tempt you with some suc- 
culent young shoots near the 
edge of the screen. 

Beware, the chances are 
that the screen will decide to 
change direction just as you 
are in mid-mow and it’s bye 
bye Zippy. 

As you would expect, things 
get a little more tricky as you 
progress further. You can gain 
bonus points by collecting the 
plums, but you will find a lot 
more bower for our hover in 
the shape of drawing pins. 

Splat is an original and 
infuriatingly addictive game. 
You can’t relax for one second 
without the screen suddenly 
changing direction and Splat! 
another one bites the compost 
heap. 

Carol Barrow 


Level 9 
hasa 
classic 
on its 
hands 


ONE thing is always immedi- 
ately apparent about Level 9 
adventures — their excellence. 
Lords of Time is no excep- 
tion. 

The evil time lords are 
tinkering with Earth's history 
and must be stopped. You are 
chosen by Old Father Time to 
be the instrument of their 
downfall. 

Your task — to collect nine 
objects, each inscribed with an 
hourglass, that are scattered 
through the ages. 

You start in the present. A 
candle, some matches and an 
hour glass are all to hand and 
in the next room is a 
grandfather clock that is more 
than it seems. 

After WINDing yourself up 
for the task ahead, you TURN 
to the problem at hand and 
PUSH forward. 

The first time zone you visit 
is also set in the present. You'll 
find yourself TIED up a bit 


here. 

Repeated contemplation of 
the compost heap on an empty 
stomach is no answer. How- 
ever, you'll have to go to the 
ice age for the final solution to 
that coin. 

Now you are prepared to 
tackle the second time zone. 
Here you'll find yourself with a 
mammoth problem. That can 
be the answer, Pirate Pete 
might say. 

Further on in your quest you 
will frighten cavemen, fight 
Romans and wonder what 
pirates are doing with Vikings. 

You will travel to medieval 
times, meet androids in the 
future and free imprisoned 
humans in the far future. 

As usual with Level 9 
adventures, there are the usual 
quota of puns. 

This is especially worth 
remembering when you stand 
before the gate relecting on 
what has passed before. The 


Adventure Quest .. 
American Football . 
Amstradraw .... rR 
Arnold goes to somewhere else - 
Astro Attack . 
Amstrad Tutorial 


Dragon's Gold 
‘Er*bert ... 
Fighter Pilot . 
Flexi-friend 
Flight Path 737 
Football Manager . 
Fruit Machine 
Fruity Frank . 


Atomsmasher .. Romik 
Blagger ... Alligata 
Centre Court . Epicsoft 
Chopper Squad . Interceptor 
Colossal Adventure . Level 9 
Country Cottages Sterling 
Crystal Theft . . Wiccasoft 
Cubit ... Mr Micro 
Defend or Die Alligata 
Detective . 
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Forest at World's End . Interceptor 


Galaxia Kuma 
Gems of Stradu - Kuma 
Ghouls ... Micro Power 
Happy Letters BES. 
Harrier Attack . Durrell 
Happy Writing . BES. 
Holdfast Kuma 
Home Budget . Kuma 
Hunchback . Ocean 
Lords of Time Level 9 
Map Rally ES. 
Manic Miner Software Projects 
Message from Andromeda ...... Interceptor 


Mr Wong's Loopy Laundry Artic Computing 
Music Composer . Kuma 
Mutant Monty . . Artic Computing 
Number Painter 
Osprey 
Punchy 
Pyjamarama 
Roland in the Caves 
Roland Goes Square Bashing 
Rollaball 


Royal Quest .... 


program comes with a booklet 
giving information about play- 
ing the adventure and should 
definitely be read before star- 
ting. 

It tells you to tackle the time 
zones in numerical order so 
that you are equipped to solve 
the problems in the next zone. 
This is true but you might also 
need to jump to other zones in 
order to get what you need to 
solve problems in the present 
one! 

The adventure itself is not 
easy, Level 9 adventures never 
are. However it is easier than 
their Middle Earth trilogy. 

All the puzzles are logical, if 
only in retrospect. 

Overall, a superb adventure 
that is obviously destined to 
become a classic. Highly 
recommended. 

Paul Gardener 


Just one 
more 
hand... 


| HAD no hesitation volunteer- 
ing to review Knightsoft’s 
latest release, as | fancied 
playing and improving my 
poker. | left the office on the 
Friday evening to a back- 
ground of chuckles from the 
rest of the A team, and a 
chorus of “Yes, Al, we believe 
you old son. You go and 


Screen Designer 
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Splat .. 
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improve your poker’. 

Now the fact that this 
particular version is an 
animated Strip Poker really 
had no bearing at all on my 
choice, honest! And if you 
believe that, you'll believe 
there’s life on the Moon. 

The screen is laid out in 
three sections. Your hand is 
dealt and displayed in a 
column on the left. Your 
opponent, the delectable 
Mindy (a sort of Amstrad 
version of Victoria Principal), 
stands provocatively on the 
right, nearly wearing a slinky 
dress. 

The centre is taken over by 


Ossie, who runs the whole 
show. He’s the croupier and 
takes the form of an animated 
playing card who, using an 
overhead speech bubble, tells 
you everything that is going on 
and offers all the alternatives 
during play. 

These alternatives consist 
of the standard poker options 
— fold, call, raise and bet, and 
are selected by a single key 
press. The amount of your 
stake can also be raised and 
lowered in the same way. 

Both you and Mindy start 
off with the same amount of 
money. The object of the 
exercise is to make her lose 
hers first and have to resort to 
gambling with one of her three 
items of clothing. 

Now I'm not a particularly 
good poker player, but Mindy 
appears to play a fair game. 

Even so, within an hour | 
had that dress off. The 
animation involved in this 
action was very clever and 
done in the best possible taste 
and must be seen to be 


believed. 

“You can now play for my 
bra”, says Mindy. “Yippee”, 
shouts |, and we're off again. It 
took me nearly one and a half 
hours this time to have her 
stood there topless — with two 
strategically placed hands 
concealing her modesty. 

An hour later found me 
betting my pants holding a full 
house of queens over sevens, 
intent on forcing her ladyship 
into a full frontal. 

Alas her kings over tens had 
me beaten and | must admit in 
all honesty, that here | cheated 
a bit—| kept my pants on. She 
never knew of course, but the 
annoying thing was that she 
got her bra back — devious 
that, | thought, and shattering 
after nearly an afternoon's 
play. 

Undaunted | continued and 
after a couple of hours had 
Mindy in her birthday suit, 
feeling that | had just played 
an extremely good game of 
poker. 

Whether Mindy plays a 
good game (she can certainly 
bluff) | really cannot say. | 
must leave that decision to 
someone who is a regular 
player. 

| don’t think this version is 
intended to be taken all that 
seriously. Even though it is 
saucy, there is nothing offen- 
sive in the graphics and my 
eight year old daughter sat 
pressing the keys for me at 
some stages during the sess- 
ion. 

The game may not make a 
Maverick out of you, but if you 
like a bit of a gamble, with a 
touch of excitement and a bit 
of fun, then this will appeal. 

Alan McLachlan 
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WAR 
ZONE 


CE warGAMES 


A little gem 
of a battle 


THE last time | played a 
strategy game | found it over 
long, over slow and, since it 
required two players — the 
computer acting as referee 
and general dogsbody — not 
overworked either. 

But that was long ago onan 
Apple in the days when the in 
thing was adventures and war 
games took a back seat. 

I'm happy to report that 
War Zone by Cases Computer 
Simulations, has redressed the 
balance. It’s busy, bright, 
brilliant. A little gem. 

The battle is waged on a 
map divided into nine squares 
over terrain generated afresh 
for each game by the Amstrad. 
Protagonists are infantry, 
tanks and artillery. 

Judging by their firepower 
the game is based on the 
‘39-45 war; there is no 
evidence of nuclear weapons, 
and lasers are thankfully 
absent. 

The player controls the Blue 
army, whose HQ is in the top 
left hand square, while the 
micro (Red, naturally) 
occupies bottom right. Only 
one square at a time is 
displayed, and if you have no 
troops in any particular square 
you are not allowed to see into 
it. 

This permits the prepar- 
ation of a rapid deployment 
force (jawohl, Herr General 
Rommel) which can swan over 
the nearest border and give 
the enemy a nasty shock. 

At which point, you realise, 
the computer could gain con- 
siderable advantage by PEEK- 
ing (unfair comment, for the 
program is written in machine 
code, hence the speed) into its 
human adversary’s borders. | 
can only say that | saw no 
great evidence of electronic 
naughtiness, (though | did lose 
rather a lot). 

You are allowed from bet- 
ween 15 and 150 units at the 
start of a game, and | found it 
wise to select around 20 of 
each type, as the whole thing 
got rather cumbersome and 
time-consuming otherwise. 


That might merely mean that 
I'm more major than major 
general material. 

Another option at the start 
is whether the computer 
should operate fast or slow. 
You appear to gain nothing by 
opting for the latter as you 
make your own moves in your 
own sweet time. | don’t think 
computers benefit from 
second thoughts. 

So, you've picked your 
troops and the micro has 
matched them. Now it takes a 
few seconds off to generate 
the terrain — at random — and 
place the pieces. Random 
again is the choice of who 
goes first. 

If the computer wins here it 
will display the first square it is 
to operate in, and Red tanks, 
infantry et al will start 
advancing. Each piece is 
allowed a certain number of 
moves, modified by the coun- 
tryside (faster on roads, 
bogged down in woodland) 
and one shot at any enemy in 
range. 

Firefights are accompanied 
by realistic crashes and much 
flashing. The outcome of each 
encounter is displayed on the 
tight hand side of the screen, 
plus other useful information 
and prompts. 

Each piece is allowed one 
move and shot at the enemy 
(not necessarily in that order) 
per go. You can, for instance, 
order a tank to shell an enemy 
position and, if you survive the 
encounter, proceed to the top 
of a handy nearby hill ready for 
your next “round”. 

At this point it is worth 
noting that your tally of 
operational troops is displayed 
on the right of the screen, 
constantly downgraded as 
your men hit the dust, but the 
micro keeps its casualties to 
itself. 


If you opt for a full scale 
battle and real time intervenes 
there is a save game option. 

lf you are a war games 
fanatic, buy it. If you are not, 
still buy it. You soon will be. 

Peter Gee 
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F you thought we learned 
quite a lot last month, 
wait till you see what 


we've got lined up for you now! 

Let's recap a little though. We've 
learned that the Z80 has several 8 bit 
registers — that is, internal memory 
locations that can hold one byte. We 
refer to them by the letters, H, L, B, C, 
D, E and A. 

We've also met quite a few 
instructions involving these registers. 

For example: 


LD ryn 


where r is one of the internal registers 
and nis a number in the range O to 
255. This allows us to load a register 
with a number or constant. 

Also: 


LD r,r’ 


where r’ is another of the registers. 
This allows us to transfer the contents 
of one register to another. 


INC r 


increases the contents of a register by 
one while: 


DEC r 


decreases the contents of a register 
by one. 

So far these instructions work for 
all registers. We did find, however, 
that some demanded the use of the A 
register. For instance, we could peek 
and poke memory via the A register. 

To poke we used: 


LD (pq), A 
and to peek: 
LD A, (pq) 


where pq is a two byte number 
specifying an address in memory. 
These two instructions are restricted 
to the A register only. There’s no such 
instruction as: 


LD B, (pq) 


for instance. 

A similar restriction applies to the 
ADD and SUB commands — they only 
apply to the A register. 

They appear as: 

ADD A, r 
and 
SUB r 


(Notice you don’t have to specify 
the A register for SUB. The micro 


Pair those 
registers 

for more 
micro power 


Part VI of 
MIKE BIBBY’s 


introduction to 
machine code 


knows you're subtracting r from A). 
And you can also ADD or SUB 

constants to or from the A register. 
So: 


ADD A, n 
SUB n 


exist. 

Lastly, we learned that increasing 
the contents of a single byte past 255 
caused “the clock to start again’. 

That is: 


255+1=>0 

255+2=>1 
Similarly: 

0-1 => 255 

O-2=> 254 


We're really doing quite well with 
single byte registers. There’s one 
difficulty though: the numbers are too 
small. After all, if we wanted to 
specify a part of the graphics screen, 
we could be dealing with numbers 
well over 255. 

We're used to handling bigger 
numbers than can be held in a single 


byte every time we specify an 
address. All our addresses take two 
bytes, as we've seen. For example, 
&3000 consists of two bytes — a hi 
byte (&30), followed by a lo byte 
(&00). We've used this every time 
we've used CALL. 

This is the instruction that’s similar 
to a GOSUB — except we follow it 
with the start of a machine code 
address, not a line number. 

The routine we call ClrText, which 
clears the text screen, starts at 
address &BB6C. Again, two bytes — 
hi byte &BB, lo byte &6C. When we 
translate the mnemonics into hex 
though, the lo byte comes before the 
hi byte: 

CALL &BB6C 
becomes: 


CD oC BB 


So to handle things like addresses 
and numbers bigger than 255 we 
need two bytes. Single byte registers, 
therefore, tend to be a bit restrictive. 

To overcome this, the Z80 allows 
us to pair our registers to give 16 bit 
registers: 

H combines with L togive 16 bit register HL 
B combines with C togive 16 bit register BC 
D combines with E to give 16bit register DE 


This means we can do things such 
as LD HL, &AAFF. 

This will load the register pair HL 
with the two byte, 16 bit number 
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anemonics 
LD HL, SAAFF 
LD AL 


address hex code 
3800 = 21 -FF AA 
3083 7D 
3004-32 FQ 2F 
3007, 70, LD A,H 

3088 = 32 FF 2F LD(&2FF9) A 
3008 = C9 RET 


Program | 


&AAFF. H will contain the hi byte 
(&AA) and L will contain the lo byte 
(&FF). That’s how they get their 
name: H for High, and L for LOw. 

Let's prove it with Program I. 

So what are we up to? If you 
believe what I’ve said so far LD HL, 
&AAFF will store &AAFF in the 
register pair HL. The opcode for this is 
21. 

Notice that the value &AAFF, like 
an address, is translated into lo byte, 
hi byte form so LD HL, &AAFF 
translates as 21 FF AA. 

To sort out which holds the hi byte, 
HorL, we then copy the contents of 
the L register into A with LD A, L and 
then poke the first byte of Hexer’s 
“workspace” with LD (&2FF8), A. 

To have a look at what's in the H 
register, we LD A, H and poke it into 
the next byte of workspace with LD 
(&2FF9), A. 

Then, of course, 
obligatory RET. 

We're forced to do the transfers to 
A, by the way, because we can’t poke 
the other registers into memory. 

Incidentally, if you haven't already 
typed in our hex loader and simple 
monitor Hexer from our March 1985 
issue, might | suggest you do so now. 
These articles have been written with 
it inemind. 

lf you run Program | and examine 
the workspace afterwards, you'll see 
that &2FF8 (where what was in L 
«was stored) contains &FF, and 
&2FF9 (which holds what was in H) 
contains &AA. 

So it’s proved, a 16 bit load (that’s 
what we call things like LD HL, 
&AAFF) stores the hi byte in H and 
the lo byte in L. Notice, by the way, 
I've arranged for the bytes to be 
stored in our workspace in the 
standard lo byte, hi byte form. 

Program II should be familiar from 
last month. It puts an asterisk on the 
screen. 

We could replace the instruction 
LD H and LD L (8 bit loads as they are 


LD(&2FFQ) .A 


there’s our 
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address hex code 
3088 = CD aC BB 
300328 14 
3885 = 2E BC 


anemonics 
CALL ClrText 
LD H,&t4 

LD L,&@C 


aneaonics 
LD BC,on 


LD DE,an 
LD HL,an 


opcodes 
fine 
{ine 
Zine 


3807 
380A 
3000 
3OOF = C9 RET 


Program II 


CD 75 BB 
3E 2A 
CD SA BB 


CALL PosTCur 
LD A,&2A ‘ 
CALL CharQut 


known) with a single 16 bit LD HL as 
in Program Ill. 

We still want to load H with &14 
and L with &OC. Remembering that 
the hi byte goes in H and the lo byte in 
L the instruction we want is: 


LD HL, &140C 
which translates as: 
21 aC 14 


in lo byte, hi byte fashion. 

If you run it you'll see that Program 
Ill does in fact place the asterisk 
where we want it — column 20 (&14 


aneaonics 
CALL CirText 
LD HL, &148C 
CALL PosTCur 
LD A,&24 
CALL CharOut 


hex code 
CD 6C BB 
21 aC 14 
CD 75 BB 
3E 2A 

CD 5A BB 


address 
3008 
3083 
3086 


3009 
3088 
3eHE = CY RET 


Program I/II 


Table |: Opcodes for loading 
register pairs with constants 


in the H register) row 12 (&OC inthe L 
register). 

We can load our other register 
pairs with constants, as you can see 
from Table |. Program IV uses a 16 bit 
load into the DE register pair as well 
as into the HL register pair. 

It uses a routine called GrafLine 
(&BBF6) to draw a line on the 
graphics screen which we've 
previously cleared with CirGraf 
(&BBDB). GrafLine uses register pair 
DE to specify the X coordinate, and 
register pair HL the Y coordinate, of 
the line’s endpoint. 

Its starting point is, of course, the 
last point visited by the graphics 
cursor, as in Basics DRAW com- 


mand. Since we've cleared the p> 
address hex code a@nemonics 
3008 = CD DB BB OCALL ClrGraf 
3883) 7F @2 LD DE,&27F 
3006 9-21 BF OL LD HL,&{8F 
3009 = CD Fé BB CALL GrafLine 
3eec = C9 _ RET 
Program IV 
=I 


June 1985 27 


screen, this will be at (0,0). 

As you'll see from the listing, our X 
coordinate is 639 (&27F) and our Y 
coordinate 399 (&18F), so GrafLine 
will draw a line from the bottom left to 
the top right corner of the screen. Run 
it and see. 

The return to Hexer (or Ready 
message if you've called it from 
Basic) will cause the line to scroll off 
the screen. Can you alter Program IV 
so that it waits for a key before 
returning? You'll find the Charin 
routine at &BB18 useful. 

Now you've encountered GrafLine, 
why not use it to draw some pretty 
pictures? The routine corrupts all the 
registers we've met but the 
Amstrad‘s firmware, or operating 
system, keeps track of where the 
graphics cursor has reached, so this 
needn't worry you if you're simply 
plotting on from where you've just 
reached. 

You might find the routine 
GrafMove at &BBCO useful while 
you're at it. This is the machine code 
equivalent of Basic’s MOVE, with DE 
specifying the X coordinate and HL 
the Y coordinate. Again, our registers 
are corrupted. 

Incidentally if we'd loaded H, L, D 
and E separately our code would 
appear as in Program V. 


hex code anesonics 

CD DB BB. CALL CirGraf 
16 82 
1€ 7F 


LD D,&82 

LD E,&7F 

26 B1 LD H,&0t 

2E BF LD L, uaF 

CD Fé BB CALL GrafLine 
C9 RET 


Program V 


Admittedly, the code is only two 
bytes longer in this version. However 
Program IV is easier to read, and by 
loading DE and HL directly conveys 
the idea of coordinates better. In 
machine code every improvement in 
clarity, no matter how slight, is an 
advantage. 

Take a look at Program VI. It uses 
several roytines we haven't encoun- 
tered yet. 

What we're doing here is to create 
a text window, then clear that 
window to PAPER 3, which is red, 
providing we're still in our default 
colours in Mode 1 (the way the 
Amstrad is at switch-on). 

TextWin (&BB66) allows you to 
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create a text window. H and D 
contain the two text column numbers 
that you want the window to be 
between, while L and E contain the 
rows. It also corrupts all our registers. 

In the above case our window is 
between columns 10 (&0A) and 30 


address hex code anemonics 

3088 = CD 6C BB CALL CirText 
3883 = 24 BA 
3085 = 14 JE 
30070 2E BA 


LD H,&@A 

LD D&E 

LD L,k@A 
30a) 1E 18 LD E,&18 
3808 = CD 66 BB CALL TextWin 
3OeE «= SE BB LD A, 883 
3018 = CD 94 BB CALL SetPaper 
3813. CD 6C BB CALL CirText 
3aib CP RET 


Program VI 


(&1E). and rows 10 (&0A) and 16 
(&10). It will also be window +0, 
since we haven't specified any other 
stream. 

We also use the routine SetPaper 
(&BB96) to set the text background 
colour. A must contain a legal ink 
number for the mode you're in, and 
both it and HL are corrupted by the 
routine. 

Notice that we then call CirText 
again to clear the window to the 
paper colour. 

The Basic equivalent of the process 
would be: 


18 CLS 
28 WINDOW 18,38, 18,16 


30 PAPER 3 
40 CLS 


In Program VI I've loaded H,L and 
D,E separately — no 16 bit loads here! 
To prove just how good you are 
becoming at machine code, | want 
you to convert it so you load HL and 
DE with 16 bit loads. That is, get rid of 
those four single register loads. 

And while you're at it, that window 
is an awkward size — when you use 
the Examine Code option in Hexer it 
won't quite fit will it? So you can 
adjust the window size as well. 

So far we've concentrated on 
loading our register pairs with 
constants. Our instructions have been 
in the form: 


LD rr,an 


where rr is the register pair and mn is 


the two byte constant to be loaded, m 
the hi byte and n the lo byte. 

There are lots more things we can 
do with the register pairs, but for the 
moment we'll learn how to use them 
to peek and poke into memory. 

So far we've done our peeking and 
poking into memory 8 bits at a time 
via the A register. 

The instructions were: 


LD A, (pq) 
and 
LD (pq),A 


Notice the brackets around the pq. 
These show that we're concerned 
with the contents of the memory 
location specified, pq. 

Using register pairs, however, we 
can manage to peek and poke two 
bytes, that’s 16 bits at a time — ideal for 
handling big numbers and addresses. 

To poke, or more accurately, load 
in to memory, we can use instructions 
of the form: 


LD (pq), rr 


where pq is the memory location we 
want to poke into, p being the hi byte 
and q the lo and rr is one of the 
register pairs BC, DE, HL. 

Table II gives the opcodes. For the 
first time we're dealing with two byte 
opcodes, so together with the 
address, an instruction such as: 


LD (&3888) ,BC 
will take four bytes in all to specify. 


aneaonics 
LD (pq) ,BC 


opcodes 

ED 43 q 7 
ED 53 q p 
ED 63 q p 
2249 


Table Il: Opcodes for 16 bit “pokes” 


LD (pq) ,DE 
LD (pq) HL 
LD (pq) HL 


You might have seen that there are 
two versions of: 


LD (pq) ,HL 


one of which has a single byte opcode 
— that’s the one we'll use for 
preference. 

Fine, we know the opcodes, but 
what exactly do they do? Well, since 
we're loading two bytes into memory 
from the register pair, we'll naturally 
have to load them into two separate 
memory locations. 

If the instructions were: 


LD (&3@8@) ,HL 
the effect would be to load &3000 
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‘Register pairs are ideal 


for handling large 
numbers and addresses’ 


with the contents of L and &3001 
(the next memory location up) with 
the contents of H. 

Notice it goes into memory lo byte 
(L) followed by hi byte (H) — very 
convenient. To put it more formally, 


LD (pq) yrr 
causes 


(pq) <== rr lo byte 
(pqtl) <== rr hi byte 


where the arrows mean js loaded 
with, 

Think about it! pq+1 is the next 
memory location after pq. Both pq 
and pq+1 are in brackets since it's 
their contents we're changing, not the 
number pq or anything weird! 

A bit of practical work should make 
this clear: 


address hex code aneaonics 
3008 = 21 34.12 LD HL,&1234 

3083) = «22 FB 2F LD (&2FFB) HL 
3aa6 =| C9 RET 


Program VII 


Program VII simply loads register 
pair HL with &1234, and then pokes 
the contents of HL into the memory 
locations starting at &2FF8, Hexer's 
workspace. 

Run the program and then 
examine memory from &2FF8. You 
should see that &34 (the contents of 
L) is stored in &2FF8 and &12 (the 
contents of H) is stored in &2FF9. 

Ring the changes in the program 
by loading the other register pairs — 
BC,DE — with constants and then 
poking them into the workspace. As 
you'll see, poking with register pairs 
stores their contents in lo byte, hi byte 
order in two adjacent memory 
locations — the one specified and the 
next higher up in memory. 

We can also peek memory using 
the register pairs: 


LD HL, (&3000) 
would place the contents of memory 
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location &3000 in the L register and 
the contents of &3001 in the H 
register (notice the hi byte, lo byte 
order in memory yet again). 

We have the brackets around the 
address to show that we're dealing 
with the contents of memory. After 
all, if we left them out we'd have: 


LD HL,&3808 


which is just a straightforward 16 bit 
load, which will load the constant 
&3000 into the HL registers. H will 
then contain &30 and L will contain 
&00. 


LD HL, (&3808) 


on the other hand is our peeking 
instruction. After this instruction, 
what's in H and L will depend on the 
contents of memory locations &3000 
and &3001. 

If you like, in Basic, 


LD HL, 43008 


would translate to: 


L = 408 
H = &30 
whereas: 
LD HL, (&3008) 
would be: 


L = PEEK (&3808) 
H = PEEK (&3081) 


Our general description of 16 bit 
“peeking” with register pairs BC, DE, 
HL is: 


LD rr, (pq) 
which causes: 


tr lo <== (pq) 
rr hi <== (pg+i) 


Table Ill contains the opcodes. 
We've got four byte instructions 
again, save for the ‘‘duplicate”’ 
involving HL. The reason for the extra, 
shorter instruction involving HL is 
that this tends to be our favourite and 
most frequently used register pair, in 


anemonics opcodes 
LD BC, (pq) ED 4B q p 
LD DE, (pq) ED 5B q p 
LD HL, (pq) ED 5B q p 
LD HL, (pq) 2Aqp 


Table I/l: 16 bit peeks 
with register pairs 


much the same way as A is among 
our 8 bit registers. 

At this stage in the game it is a 
little awkward giving you a decent 
example of a 16 bit peek — though 
believe me they're very useful 
instructions. Anyway Program VIII 
gives a rather contrived example. 


address hex code mnemonics 
3008 «©. 28 BB 30 LD HL, (&3808) 


3003 = 22 FA 2F LD (&2FF8) HL 
3086 = C9 RET 


Program VII/ 


All this does is to copy the first two 
bytes of our program (which starts at 
&3000) into Hexer's workspace at 
&2FF8. 


LD HL, (&3088) 


puts the contents of &3000 into L, 
and the contents of &3001 into H. 
Our next instruction: 


LD (&2FF8), HL 


is the poke instruction we've already 
met and puts the contents of HL into 
workspace, lo byte first. 

When you now examine the 
workspace (from &2FF8 onwards), 
you should find the first two bytes are: 


2A 88 


corresponding to the first two bytes of 
our program (stored at &3000 
onwards). 

Try rewriting the program using 
the other register pairs we've met to 
peek and poke with. 

Well, that’s plenty for this month. 
A final point — you can't combine any 
two single registers to give a register 
pair. There isn't a register pair HB, for 
instance, even if there’s such a pencil! 

And that word ‘‘combine”’ is 
important, too. The register pair HL, 
for example, isn’t independent of 


‘changes you make to the single 


registers H and L. A change in either 
will affect the value of the two byte 
constant or address in HL. 

@ Next month we'll see just how 
powerful our register pairs can be... 


=! 
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Using the advanced graphics 
techniques developed for the 
game ‘‘Dark Star’ the Design 
Design team bring you TANK 
BUSTERS. You take control of 
an advanced battletank on the 
battlefield of the future. 

Your mission is to seek and 
destroy the enemy forces intent 
on your annihilation. 

R.R.P. £7.95 


DARK 
STAR 


At last available on the Amstrad, 
the game that was awarded 

10 out of 10 in Personal 
Computer News and the only 
game ever to receive a 

100% rating in Crash Magazine. 
This is the fastest three 
dimensional space simulation 
available for any home 
computer. 

R.R.P. £7.95 


Design-Design Software, 
2 Ashton Way, East Herrington, 
Sunderland SR3 3RXx. 


Trade enquiries to:— 


125 Smediey Rd.,Cheetham Hill, 
Manchester M8 7RS 
Telephone 061 205 6603 


SUPERCHARGE YOUR AMSTRAD. 


‘SUPERPOWER’ SIDEWAYS ROMCARD FOR 
THE AMSTRAD 
This unit opens up a whole new field of 
personal computing, previously only available 
to owners of the BBC Micro and other top of 
the range computers, 

Rom based software is instantly available from 
the keyboard and being written in mathine 
code is very fast in operation. 

The SOPERPOWER SIDEWAYS ROMCARD 
(Ret B101) has the following features: 
Matching Case, with easily detachable cover. 
Fits snugly to rear of computer. 

Bus extension for fitting of Disk Interface or 
other units. Houses up to 7 foreground 
or background Roms ~ any mix of BK and 16K 


‘SUPERPOWER’ ROM-BASED SOFTWARE 


A complete range of Rom based programs is 


under development, releases being planned at 


the rate of two per month, starting in June. 


Available from June Ist are the Mailing List/Club 


Membership program plus the Disk Users 
Utilities Rom. 

Later releases will include Word Processor, 
Spreadsheet, Database and Graphics/Printer 
routines packages - with data interchange 
facilities - PLUS an Enhanced Basic/Toolkit 
program and a Machine:Code Monitor. 


A screen report gives breakdown 


by categories, Printing options include Label fields 


only, and Total Record including classifications. 


Label can be of two standard sizes or user-defined. 


Program works with any parallel printer. 
Alphabetical Order is dealt with on Entry. User 
choice of Keyword e.g.’J’ ohn or ‘S’ mith. 
The Name field can be searched for the first 
part or the whole of a keyword. The whole file 
can also be searched for any. string. There is 


> 


> 


Simple selection of programs from Keyboard 
<BAR> Mail etc. No additional power supply 
necessary. Additional cards can be 
daisy:chained for further capacity, 

HIGH QUALITY BLANK EPROMS AVAILABLE 
These are 200 nanosecond devices, the speed 
recommendediby AMSOFT, 
8K Eprom £7.95 (Ref B104), 16K £11.95 (Ref B105), 
UNIQUE INTRODUCTORY OFFER 
Until 30th June the SUPERPOWER ROMCARD 
will only be available by Mail Order. We are 
giving away a 16K Eprom (worth over £10) with 
all orders received by that date, Moreover, this 
will contain a FREE copy of Micro Powers highly 
acclaimed ‘Ghouls’ program to demonstrate 
the instant nature of Rom based Software, 


SUPERPOWER MAILING LIST 
and club membership 
PROGRAM [Ref B102) £39.95. 


ROMCARD (RefBI0l) & 


SUPERPOWER SIDEWAYS. 
39.95. 


“SUPERPOWER’ MAILING LIST (AND CLUB 
MEMBERSHIP) PROGRAM (REF B 102) 

The program handles very large lists of names 
and addresses on a selective basis, acts asa 
simple Database, and is particularly suitable for 
Club Membership records. The main features 
are as follows:. Each Record can contain up to 
19 fields, those to appear on labels being 
user-selected. Variable length fields are used to 
optimise memory and disk space. 

In practice, approximately 2000 records 
containing name and address and two non 
label fields can be held on one side of a disk 
Multiple double-sided disks are catered for. Each 
record can have up to 20 classification indicators. 
When used as Membership List, 12 can be 
nominated for monthly subscription reminders. 


“SUPERPOWER’ DISK USER'S UTILITIES ROM 
(REF B103) 

This program allows detailed inspection and 
modification of information held on disk. It is of 
particular use in the recovery of data from 
corrupted disks. Individual sectors can be read 
from and written to. All data can be output to 
the screen and/or printer. The program also 
contains a number of functions of use to the 


sophisticated line and character editing, including 
change of keyword. Function Keys can be defined 
to give single key entry of commonly used string 
e.g.’Membership No’ In Entry mode an 
‘automatically incrementing number is available. 
Foreground and Background colours can be 


SUPERPOWER DISK USER'S 
UTILITIES ROM (Ref B103) £ 39.95. 


‘assembly language programmer. 
Main Functions. 
FILELOAD — loads first sector into buffer and 
remainder into memory for fast access later. 
READ - reads a sector into the buffer and 
enters Edit Mode. 


selected, 


SUBSIDIARY FUNCTIONS — 


EDIT - displays the current buffer. Data 
displayed is Buffer Address, Hexadecimal 
representation of each byte and ASCII 
representation of each byte. 
Depending on mode selected, display is of 
12 or 24 lines of 8 or 16 bytes. 
- modification of Hex numbers, changing the 
ASCIl automatically and vice versa. 
~ comprehensive cursor controls for easy 


CATALOGUE - similar to AMSDOS catalogue. 
MODE - Select 40 col,/12 line display or 
80/12, 40/24 or 80/24. 

INK — Select Background and Foreground Colours. 
ROM CHECK -~ lists all sideways Roms, giving 
Position, Foreground or Background, Name, 
Version No. etc. 

OTHER DISK COMMANDS ~ Access to other 
‘commands such as Format and Verify is 


editing, provided directly from the Rom 


FIND — can search a sector or total file for an 
ASCII string 
WRITE - writes a sector previously read by 
READ or FILELOAD. 


ASSEMBLY PROGRAMMER'S AIDS. 
Disassembler, Relative Jump Calculator. 
Calculate the Sum and Difference of two hex 

numbers. Hex to Decimal Conversions 


~ and vice versa. Intelligent Copy. 


DEALERS! SuperPower represents an exceptional profit opportunity. Ensure your 
part of the action by becoming a SuperPower Advice Centre and Stockist and 
benefiting from our dealer support package. Contact Eileen Garfield on 0532 
434006. 

HOW TO ORDER Phone or write to: The SuperPowerProject Manager, Sheepscar 
House, Sheepscar Street South, LEEDS LS7 IAD. TELEPHONE (0532) 434006. 
State your NAME and ADDRESS and the REFERENCE NUMBERS of the products 


ROM-BASED SOFTWARE 


you wish to purchase. Buy on _ FULFILS THE PROMISE OF YOUR AMSTRAD. 
Access/Visa card by stating 5ooipowe §. a 


your card number or write 

enclosing a cheque made payable to: Micro PowerLtd. (Please add 9.5pto yourtull 
orderamounttocoverpostand packing.) ACT NOW TO SECURE YOUR ORDER 
AND YOUR INTRODUCTORY OFFER. (No cheques received will be banked * 
before your orderis despatched) 


KEEP UP TO DATE Phone (0532) 434006 to join our mailing list and receive regular bulletins on new products and release dates. 
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MMON is a machine code 
monitor written in Basic. If 
you've used a monitor before 
on another micro you'll know how 
useful a tool it is. If not, you'll soon 
learn! 

By using AMmon you'll be able to 
see how the CPC464 actually works — 
how variables are stored, the format 
of programs in memory and so on. 
You'll also be able to run your own 
simple machine code routines. 

AMmon allows you to view any 
section of memory whether in ROM 
or RAM. Other commands allow you 
to edit memory and call machine code 
subroutines you've stored there. 

The Amstrad has an unusual 
memory map. Firstly there’s 64k of 
random access memory (RAM). In 
addition you can access another 32k 
of ROM memory, separated into two 
blocks of 16k. 

The Z80 central processing unit 
(CPU) can only handle 64k of memory 
at one time. Since there is a total of 
96k of memory in the basic machine 
the hardware must be designed so 
that the Z80 chip can access all of the 
memory present. It does this by 
switching sections of memory bet- 
ween RAM and ROM, more of which 
later. 

From Basic the memory appears 
as 64k of RAM. But in machine code 
the memory can be RAM or ROM — 
selected by software commands. 

ROM which “replaces” part of 
RAM is known as a background ROM. 
This is because it is “hidden” behind 
the RAM at the same location — it 
could be considered to be in the 
shadow of the RAM. 

To access the operating system 
(OS) the lower 16k of memory must 
be switched from RAM to ROM — 
locations O-&3FFF. The operating 
system is responsible for the overall 
running of the system and controls all 
of the input and output. 

The Basic interpreter lives in the 
upper section of the memory map 
behind the screen memory — 
locations & COO0-& FFFF. 

This upper section of memory is 
“banked”. Banking allows any one of 
256 ROMs to be “placed” in the 
memory block &COOO-&FFFF. (This 
16k block of memory has been 
specifically reserved for ROMs). 

Additional ROMs are banked in the 
same way as Basic. These can be 
used to allow new languages to be 
added to the existing system — 
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another 252 such ROMs can be 
supported at present. The ROM at 
locations & COO0-& FFFF is known as 
the upper ROM. 

When any ROMs are enabled, 
write commands still access the 
RAM. This seems funny at first but 
when you consider the fact that 
ROMs are read only it then makes 
sense. The hardware handles this, so 
don’t get too worried. 

This leaves 32k of RAM between 
the two ROMs — assuming both 
ROMs are enabled. This is a “no 
man’s land” and both ROMs use this 
as a workspace. Programs can also 
exist in this section of memory. 

Now back to the monitor. 

As we have no way of accessing 
either ROM from within a Basic 
program a machine code routine is 
required to fetch a byte from either 
ROM. Fortunately there are two 
simple calls which enable the upper 
and lower ROMs — turning off the 
RAM in the process. 

These are called within a machine 
code program before the required 
byte is read from memory — so as to 
read the ROM contents instead of 
RAM. This routine resides in the “‘no 
man’s land” at location &5000. 

The routine to enable the upper 
ROM is at &BS9OO. The lower ROM is 
enabled by calling &B906. 

When you have typed in the 
program SAVE it before trying to 
RUN it. This is in case the machine 
code routine has been mis-typed — if 
this is the case the machine could 
crash. 


RUNning the program displays 
the five available commands. Selec- 
ting the command is simply done by 
pressing the key corresponding to the 
command prefix. This will be D,E,J,L 
or P. (A summary of the commands is 
given in Table |.) 

Selecting the D command will 
allow you to dump any section of 
memory. On pressing the D key you 
will be asked which memory type you 
wish to view. Option 1 will allow you 
to examine the upper and lower 
ROMs along with the RAM between 
them and Option 2 displays only the 
RAM. 

After the memory type has been 
selected you will be asked for the 
start address for the dump. This must 
be in the range 0-65535. The number 
can be entered in decimal or 
hexadecimal — hex numbers should 
be prefixed with an & sign. Once the 
location has been entered an eight 
byte dump will be displayed on the 
screen. 

The left hand column is the 
memory location in hexadecimal 
which is being dumped. The next 
eight bytes are the contents of eight 
locations starting from that location, 
again in hex. 

On the right hand side of the 
display is the Ascii character of these 
locations’ contents. For example, an 
A will be printed if a location contains 
&41 (65 indecimal). The memory will 
be dumped from the location 
specified until a key is pressed, or the 
end of memory is reached — this is at 
location &FFFF. 
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master 


Explore the Amstrad’s 
hidden\96k memory with 
KEVIN EDWARDS 


Next comes the E command which 
allows memory to be edited. This can 
be done in two ways. 

The first allows you to edit byte by 
byte. The other option allows you to 
enter a string into memory. This is 
useful because it allows you to put 
messages into memory. 

After E has been pressed the 
editing type is selected by pressing 
either 1 or 2. Selecting 1 allows you 
to edit memory byte by byte. Once 
selected, you will be asked to enter 
the start location you wish to edit. 

Again, like all commands, the 
location can be entered in decimal or 
hexadecimal. Once this has been 
entered the memory location will be 
displayed on the screen along with its 
current contents. This is done first in 
hex and then in decimal. 

You will now be prompted by a 
question mark to enter the location's 
new contents — a decimal or hex 
number between O and 255 (hex 
&0-&FF) should be entered. 

After a byte has been entered the 
next location will be displayed in the 
manner previously described. Now 
this location can be edited. 

Pressing Enter without any 
number returns you to the monitor's 
command mode. This should be used 
to exit the editing mode. 

If you select editing Option 2 you 
are allowed to enter a string into 
memory. This simply puts the Ascii of 
each character of the string into 
memory in consecutive locations. 

As before you will be asked to 
enter the start location — that is, 
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where the string will be placed in 
memory. Once this has been done 
you will be asked to ent. che string. 
Type it in and press Enter. 

The string will now be put in 
memory. If the string goes past the 
end of memory a message will 
indicate this and the function will be 
aborted. Be very careful with the 
editing command as it is a very 
powerful and “dangerous” feature of 
the monitor if abused. 

The J command allows you to call 
a machine code routine. When 
selected you will be asked to enter the 
location to be CALLed. After you've 
done this you'll be asked if you wish 
to continue. 

This is a sort of safety catch — 
calling a mis-typed address can cause 
havoc! Pressing N aborts the 
command while Y calls the sub- 
routine. 

The L command simply returns 
back to Basic command mode. 

The final command is P. This 
allows the Ascii contents of memory 
to be printed on the screen. When 
selected you will be asked to enter the 
memory type — ROM or RAM, as with 


D- Du 

E ~ Egit 

1 (UMP to ama 
~ Leave Monitor, 


Table | 


Mp memo 
eee ry in eight byte blocks, 


chine code ‘routine, 
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int memory as characters, 


the D command. Once this has been 
done you must enter the start location 
for the operation. 

After it has been entered the start 
location is displayed in hex along with 
the Ascii contents of 32 locations 
starting from the base location given 
on the left. 

As with the D command, the 
function can be exited by pressing any 
key. The command will also be 
terminated if the end of memory is 
reached. 

All numbers displayed will be in 
hexadecimal unless otherwise stated. 
Any numbers entered can be in 
decimal or hex. 

As you can see, the monitor offers 
some extremely useful commands. 
You may also wish to include some 
commands of your own. You'll find 
these can be added to the program 
without too much difficulty. 0 

Now we've described what the 
program offers, let's see how it works 
in practice. Have a look at the 
following ROM locations using the D 
command: 

&668 — The startup message along 
with various company names. Arnold 
was the “pet’’ name given to the 
Amstrad during software develop- 
ment. 

&3900 — The character definitions 
starting from Space (each character 
definition takes up eight bytes). 
&E380 — A list of Basic reserved 
words. 

The Basic program text begins at 
RAM location &170 — reserved 
words are tokenised. Be very, very 
careful when editing between &170 
and &1600 as you could destroy the 
monitor. Locations &5000-&500D 
contain the ROM read routine so 
don't edit this either. 

Now you have a monitor you can 
explore the 96k of memory in the 
Amstrad. If you find some interesting 
locations write them down along with 
a description of what they are used 
for and send them to us. Happy 
hunting! 
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18 REM Amstrad Monitor 

118 REM (C) 

120 REN By Kevin Edwards 

138 ON ERROR GOTO 1188 

140 MODE 1 

158 PRINT"### Aastrad monitor vi.8 
ih 

168 PRINTSPRINT"By Kevin Edwards* 

17@ POKE &5@@0,&CDsPOKE &5001 ,8:POKE 
45002, %B9 

188 POKE &5@83,&CDsPOKE &5884,6:POKE 
45005, &B9 

198 POKE &5886,&3A 

200 POKE &5009,&32sPOKE &580A, &DsPOKE 
U500B, &58 

210 POKE &508C,&C9 

220 PRINTsPRINT:PRINT"-- Commands --" 
:PRINT 

238 PRINT"<D>uap memory” 

248 PRINT*<EDdit aenory" 

258 PRINT"<J>uap to subroutine” 

260 PRINT"<L>eave aonitor® 

278 PRINT"<P>rint meaory as character 
5" 

288 PRINTsPRINTsPRINT"Enter command . 
ey 

298 aS=INKEY$:1F a$=** THEN 298 

300 a$sUPPER$(a$) :PRINT AS:PRINT 

31B IF INSTR(*DEJLP",A$) THEN ON INST 
R("DEJLP" A$) GOSUB 498,758,980, 338,1 
078 ELSE PRINT"Invalid selection !!*3 
GOTO 228 

$28 GOTO 280 

338 END 

348 REM SELECT START ADDRESS 

350 PRINT:PRINT:PRINT"1,..ROM &00G8-& 
SFFF, @-16383 (0.8)" 

368 PRINT" & RAM &4OQB-UBFFF, 16384- 
49151" 

378 PRINT" & ROM &CBBB-&FFFF, 49152- 
65535 BASIC": PRINT 

388 PRINT"2,..RAM &OBBO-KFFFF, 8-6553 
on 

398 PRINTsPRINT"Enter memory type, 1 
or 2 "3 

4@B aS=INKEY$: IF ag="* OR (a$(>"1" AN 
D a$¢)"2") THEN 400 

410 IF VAL(a$)=1 THEN rom=i ELSE roa= 
8 

420 PRINT a$ 

430 PRINT: PRINT 

440 INPUT*Enter start location ",star 
t 

450 IF START)O5S535 THEN PRINT:PRINT"E 
nter a nuaber between @ and 65535 !!* 
sPRINT:SOUND 1,288:60T0 448 


460 PRINT: base=start 

470 IF base<® THEN base=baset65s36 
480 RETURN 

498 GOSUB 348 

508 ZONE S:PRINT HEX$(base) , 

518 FOR offset=@ 10 7 

528 ZONE 3 

538 location=basetoffset 

548 BOSUB 488 

558 PRINT ,HEX$ (byte); 

568 NEXT 

578 PRINT, 

588 FOR offset2=8 T0 7 

598 location=baset+offset2 

608 GOSUB 688 

618 IF byte>3i THEN PRINT CHR$(byte); 
ELSE PRINT CHR$(44); 

628 NEXT 

638 IF INKEY$<{>** THEN RETURN 

648 base=base+8 

658 IF base>d5535 THEN RETURN 

648 PRINT 

678 GOTO 500 

688 REM get byte from seaory 

698 IF rom=8 AND LOCATION<65536 THEN 
byte=PEEK (location) :RETURN 

788 POKE &5887, ((location/256)-INT(lo 
cation/256)) #256 

718 POKE &5088,INT(location/256)AND & 
FF 

728 CALL &5888 

730 byte=PEEK (&58aD) 

748 RETURN 

758 REN EDIT 

768 PRINT:PRINT"1...Edit memory byte 
by byte" 

778 PRINT"2,..Enter a string into aea 
ory" 

788 PRINT:PRINT"Enter type of editing 
pose Or 2sans 

798 types=INKEY$:IF types="" OR (type 
$(>"1" AND types<>"2") THEN 798 

888 PRINT type$sPRINT:G0SUB 438 

818 IF types="2" THEN 988 

828 ZONE 6 

838 PRINT"&";HEX$ (base) , "&";HEX$ (PEEK 
(base)) ,basey* “;PEEK(bage), 

848 INPUT newbytes 

850 IF newbyte$="* THEN PRINT:PRINT"E 
nd of editing"sRETURN 

848 POKE base, VAL (newbytes) 

878 base=base+! 

688 IF basedé5535 THEN base=0 

898 GOTO 838 

988 PRINT:PRINT"Enter string to be pl 
aced in memory" 
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918 INPUT". ..+.)",a$ 

928 IF ag="* THEN PRINT:PRINT*Aborted 
seen | "SRETURN 

930 IF base+LEN(a$)-1>65535 THEN PRIN 
TiPRINT*String over end of aesory"sRE 
TURN 

948 FOR loop#i TO LEN(a$) 

950 POKE baset+loop~1,ASC(MID$(a$, loop 
yl) 

968 NEXT 

978 PRINT:PRINT"Function complete..." 
RETURN 

988 REM juap to subroutine 

998 PRINT 

1088 GOSUB 438 

1818 PRINT:PRINT*Are you sure you wis 
h to continue Y/N "; 

1020 a$=INKEY$:a$=UPPERS(a$)s1F age"* 
OR (a$<>*Y" AND a$<>"N") THEN 1820 
1038 PRINT a$:1F a$="N" THEN RETURN 
1048 CALL base 

1058 PRINTsPRINT:PRINT*Returned from 
subroutine ...!" 

1868 RETURN 

1878 RER print string 

1888 GOSUB 348 

1098 ZONE S:PRINT HEX$(base), 

1188 FOR offset= 10 31 

1118 location=basetoffset 

1128 GOSUB 688 

1138 IF byted3i THEN PRINT CHR$(byte) 
; ELSE PRINT CHR$(46); 

1148 NEXT 

115@ IF INKEY$<>*" THEN RETURN 

1168 basebase+32:1F base)65535 THEN 
RETURN 

1178 PRINT:G0TO 1098 

1188 SOUND 1,15@:SDUND 2,188 

1190 PRINTsPRINTSPRINT*ERROR, nuaber 
= "SERRs" at line ";ERL 

1288 END 


Give your fingers a rest... 


All the listings from this month’s 
issue are available on cassette. 


See our special offer on Page 77. 
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HIS month we're taking a 
look at an animation tech- 
nique with expanding 


quadrilaterals. Easy to under- 
stand and simple to use, the 
program isn’t limited to squares. 
Try changing the subroutine at 
180 for different shapes. 

And while you’re at it, can you 
make the shapes come towards 
you? 


Draws 2 
Squares inside 
each other 


Endles¢ loop 
calling animation 
roubing 
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Amstrad Analysis 


EXPANDING 


quadrilaterals 


Analysed by 
Trevor Roberts 


initial square 


ee Calculates corners of 


New squares 


Sguare drawing 
Foutine 


Each pen in turn 
tilled with tak of 
background colour 


_—_ Changes ink in 
pen trom blue bo 
yellow then back 
bo blue again. 


xright, ytop 


xleft, ytop 


xleft, ybottom xright, ybottom 


Figure |: Coordinates 
of square 
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30 Puts the Amstrad into Mode O, the 16 disappear. 
colour mode. 140-160 These form an endless WHILE... WEND 
40 Sets up the variable square, giving it the loop. Each time it cycles the palette 
value 1. This will be used to keep track of switching subroutine is called. It's these 
the squares and the pens used to draw routines that provide the animation effect. 
them. 180-240 This subroutine is made up of the code that 
50,60 These give the initial values to the variables draws the squares. Figure | shows how the 
xleft, ybottom, xright, ytop. These values coordinates relate to the squares. The value 
are the coordinates of the corners of the of square in line 200 picks the pen which 
outer square. draws the lines. 
70 Calls the square drawing routine to draw 250-290 The FOR ... NEXT loop cycles 13 times, 
the first square. changing the ink in pen Aue to the 
80-120 The FOR ... NEXT loop cycles 12 times, background colour (ink 1). 
drawing a new square each time. 300-360 These lines are responsible for the apparent 
90,100 Calculate new values for the coordinates of movement of the squares. Each time round 
the corners of the square. The offset means the FOR... NEXT loop the ink in one of the 
that each successive set of coordinates is pens is changed to yellow (ink 24), and 
inside the previous set. then, after the delay of line 330, back to the 
110 Calls the square drawing subroutine using background colour again. 
the new values. The square appears briefly, then 
130 This calls the subroutine which changes the disappears again. As flash varies from 1 to 
inks in each of the pens to the background 13, so each square in turn is shown. The 
colour, blue. Effectively the lines all result is animation. 


** NEW ** 
up 8) 8 oer = De E 


Make use of that 8 bit printer. 


Plugs inbetween Centronics port 


and printer cable. 
FOR CPC464 INTERFACES 


RS-232 AND PARALLEL INTERFACES 
*RS-232* *PARALLEL* 


Communicate with your modem Make that robot move 
Talk to other computers Run heating systems 
Use serial printers Twin 8 bit ports 

Split baud rates Operates direct from Basic 


Standard 25 way ‘D’ connector 2 x 14 way speedbloc connector 


£45.95 Price incl. VAT & P/P £25.95 


Both units cased and include through connector for interstacking or 
connection of further add-ons (disc drive etc.) 
Literature supplied and software on tape 


K.D.S. ELECTRONICS TEL (04853) 2076 
15 Hill Street, Hunstanton, Norfolk PE36 5BS 
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ASYDRAW is a powerful 
E| graphics utility which you 

can use to create your 
own spectacular titles, pictures or 
games backgrounds. You can 
even build up a picture, save it 
Part-finished to tape or disc, 
reload it at a later date and 
improve it until it suits your 
needs. 

The picture you have created and 
saved can be used in your own 
programs either by loading straight to 
the screen or loading into the 
reserved memory for recall when 
needed. 

The off-screen pictures shown on 
these pages took only minutes to 
produce, but of course it will take you 
longer until you become familiar with 
the facilities available. 

A brief resumé of the capabilities 
of each option is shown in Table |. 

You would be well advised to read 
the instructions in stages. There are 
19 options and each needs practice 
to understand it fully and become 
proficient with its use. Read the guide 


CW = Clockwise 
ACW = Anticlockwise 
Start positions are the same. 


Figure | 


electronic 
brush and canvas! 


to EasyDraw’s functions down to the 
Beam option first. Then try drawing 
different coloured horizontal, vertical 
and diagonal lines. Once you under- 
stand these first five functions, build 
upon your knowledge by reading each 
subsequent option and practising it 
until you understand them all. 

The following tips on drawing 
circles and polygons will help to make 
life alittle easier for the first time user: 
@ Estimating the start position for 


- plotting circles and polygons can 


present some problems. In the early 
stages these calculations can be 
made much easier with the use of a 
visual aid. 

Draw a 100mm diameter circle on 
a piece of clear plastic using a 
compass and a felt tip pen. Then mark 
the circle as in Figure |. When 
estimating the start position for a 


875 125 


i 
CW - Clockwise 
ACW - Anti-clockwise 


Figure I/II 
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Start positions: Any decimal fraction below 1 ie .16 as shown in Figure | 


plot, hold the plastic with the O and.5 
vertical near the screen and read off 
the position required. 

Some interesting shapes can be 
obtained quite simply by using the 
part shape and directional plot 
options as shown in Figures I] and III. 
@ You can change the colour while 
plotting to produce a multicoloured 
shape. Choose a high number of sides 
to give you more time (there is no 
limit). A polygon with 1,000 sides 
plots slowly and gives you time to 
change colours or stop the plot 
wherever you wish. 

@ Draw to Tab can be implemented 
when drawing circles and will 
produce a cone shape, whereas 
setting Tab Move before entering the 
circle option and then Drawing to Tab 
will produce cylindrical shapes. 

@ If you make a mistake when 


917, 167 


25 
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Easy Drau 


drawing a shape you can erase it 
immediately by selecting the back- 
ground colour and repeating the 
process you have just used to create 
the shape. However it can be difficult 
to remember exactly the sizes and 
positions used. A much easier way is 
to set Tab at one side of the shape, 
turn on the Draw to Tab function and 
as the cursor is moved the shape will 
be erased. 

@ To save a shape to memory you 


can draw directly to the screen 
freehand. Alternatively you can 
prepare a grid (Draw to Tab + Tab 
Move) to guide you. Change the 
drawing colour, set Tab, move to the 
next tab setting and draw a line to the 
previous tab then set the next Tab. In 
this way the shape is “memorised” 
while it is being drawn. Draw it at 
about half the size of the screen for 
the best results. A large shape 
reduces far better than a small one 


enlarges. 
@ To exit from EasyDraw press 
Ctrl+? as if you were going to save 
the screen to memory, but answer N 
to the first prompt and the option to 
End will be given. Escape can only be 
used in the main program when an 
input is required — such as Quick 
Circle — so this is the ideal way to 
access your listing to search for 
typing errors. 

To run the program without the 


User’s Guide to EasyDraw’s functions 


Colour choice 
To change the drawing colour press Shift + the 
corresponding letter key opposite the colour block. 
Ink change 
Press Ctrl + P followed by the appropriate letter key and 
Enter. The selected colour will turn black, at which point 
pressing Shift will move through the colour palette and 
Enter will fix the chosen colour. 
Cursor control 
The arrow keys control the cursor, and coupled with 
Shift will jump the cursor 20 pixels for faster movement. 
Cursor jump 
Ctrl + J will alter the size. Enter the horizontal and 
vertical size. 
Beam 
Ctrl + B toggles Beam on/off to draw lines, and cursor 
jump can be implemented. Alternatively Ctr! + Copy 
toggles the Copy key to draw but only when it is held 
down. With the latter option cursor jump cannot be 
implemented to draw — only to move. 
Tab setting 
The Tab key “sets” the cursor position which is 
memorised and indicated in yellow above the 
permanently displayed X, Y coordinates of the current 
cursor. 

Lines can be drawn to Tab from any position, either 
on or off the screen. 
Draw single line to Tab 
Shift + Tab draws a line from the current cursor position 
to the previously set Tab position. 
Draw to Tab 
Ctrl + D toggles this option to draw a line to Tab with 
every move of the cursor — including any cursor jump 
implementation. This is useful for drawing several lines 
to Tab and avoids having to press Shift + Tab for each 
line as in draw single line. 
Fill 
Place the cursor inside any shape and Ctrl + F will fill it 
to the nearest vertical line under arrow key control as 
the cursor is moved vertically. 
Erase 
Selecting background colour A with the Beam, Draw to 
Tab, or Fill options will remove foreground colours. For 
full screen erasure press Shift + Clr. 
Quick circle 
Use the arrow keys to place the centre, press Ctrl + Q 
| and either enter a radius > 4 or press O. The /atter 


enables the left or right arrow keys to move a second 
cursor with which the radius can be set by pressing 
Enter. 

Circles, ellipses and polygons 

Use the arrow keys to position the shape, then press Ctrl 
+ Clr and input both horizontal and vertical radii using 
the same options as in quick circle. 

Input the start position, a number between O and 1 
(.5 will start to draw from the bottom of the shape). This 
is calculated using decimal fractions on a clockwise 
circle. 

/nput the number of sides. If this number is less than 
20 you will be prompted for a delay. This is only needed 
if a part shape is required so that pressing the spacebar 
can halt the plotting. 

Answer O or 7 to the prompt for clockwise or 
anti-clockwise plotting. 

Tab move 

The Tab setting can be made to move with the cursor by 
pressing Ctrl + Tab. Coupled with Draw to Tab paralle/ 
lines can be drawn using cursor jump to create a grid. 
This also works in the circle /polygon routine but must 
be set before Ctrl + Cir. 

Shape memory 

Ctrl + M stores and numbers upto 40 shapes to be 
recalled and drawn at any size. Press Tab, and while 
drawing a continuous line press Tab again at every 
change in direction (only Tab settings are memorised). 
Check your shapes using the redraw option before you 
save using Ctrl + S. 

Ctrl + L will load a new shape file from memory. 
Redraw shape 

Ctrl + R and enter shape number and magnitude 
required (from .1 upwards), to enlarge or reduce the 
original. 

Type at cursor 

Press Ctrl + T to enter text, numbers or Ctrl graphics at 
the cursor position. 

Go back to options 

Ctrl + G will return you to the opening options for a 
mode change or to load a picture from memory. 
Save screen 

Ctrl + ? saves the screen to tape or disc. 

Load screen 

A saved screen can be loaded into memory using either 


the option at the start of the program, or Ctrl + L at any 


time. 
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_ opening screen use RUN 200. If the 
program stops as a result of a typing 
error and you are halfway through 
your first masterpiece don’t panic! 
Put on the kettle, enter GOTO 550 
the main program, and save the 
picture before you do anything else. 
@ Use a light touch in the Memory 
option as a prolonged keypress 
toggles the memory on and off 
quickly and will result in empty 
shapes being numbered in memory. 
@ Before saving any picture remove 
the flashing cursor by either moving it 
off the screen or by drawing a line in 
the colour of that position. 

@ When changing INKs make a note 
of the command given at the time as 
these are needed to be set up in your 
own program. Avoid changing INK 15 
in (P):INK 4 in (E) and INK 1 in (B) as 
these are used for screen messages 
and you may end up with a one you 
can’t see. Change them once your 
drawing is finished to any INK you 
wish. 

@ Several options use the same line 
for messages, so remember to switch 
them off when you have finished with 
them if you are using two or three at 
once. 

@ You can incorporate pictures 


created with Easydraw in your own 
programs. When a picture is saved 
the whole screen, not just the 
window, is saved. The border around 
the window is, however, saved in the 
background colour. So if you recall a 
screen in one of your games the 
border will be available for on-screen 
prompts. 

A saved picture can be loaded 
directly to screen when, of course, it 
will be displayed immediately. Listing 
Il shows the idea. 

Alternatively you can load the 
picture into memory that’s not screen 
memory. When you want to display it 
a simple machine code routine will 
move it from storage into screen 
memory. 

This has the advantage that you 
can move your stored picture onto the 
screen, manipulate it, and resave it, as 
in Listing III. 


SUMMARY OF___] 
1+B 
ee Arrows 
Line to Tab. Shift+Tab 
Clear screen. Shift+ Clr 
Circle/Polygon. Ctrl+Clr 
Draw to Tab.. Ctrl+D 
poten Ctrl+F 
Go back to options, Ctrl+G 
Input shape file... Ctri+! 
Jump cursor. Ctri+J 
Load screen. Ctrl+L 
Memory shape... Ctrl+M 
Pen ink change Ctrl+P 
Quick circle... Ctrl+Q 
Redraw shape . Ctrl+R 
Save shape file .. Ctrl+S 
Save screen . Ctrl+? 
Tab setting... ... Tab 
...Ctrl+Tab 
Type at cursor,, .Ctrl+T 


MAJOR VARIABLES 


picture$ Name for screen picture. 

movx Cursor step for mode choice. 

beam Beam toggle. 

beamtrip Trips between B and Copy. 

x and y Horizontal and vertical cursor positions. 

tes Result of TEST pixel. 

jump,jumpy Fast horizontal, vertical cursor move. 

xp,yp Tab setting. 

fil Draw to Tab toggle. 

tb Tab set. 

infil Fill toggle. 

movetab Tab moving toggle. 

extrax,extray Tab move jump. 

mem Shape memory toggle. 

memtrip Start/stop memory. 

radx,rady Horizontal and vertical radii. 

stpos Circle start position. 

side Number of sides. 

delay Delay in polygon. 

cw Clockwise or anticlockwise. 

startat Start position, on circumference or 
centre. 

tba Draw to Tab. 

poly Circumference divided by number of 
sides. 

rstep Cursor moved in pixels (arrow option). 

rtes Radius option TEST. 

sh,shape Number of shape. 
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mag 
space,minus Positions for blank$(n). 
character$(n) Shape string. 
blank$(n) 
character$. 


SUBROUTINES 


50 Start, lowers memory and loads machine code. 
350 _ iInitialise, sets up the screen windows and 


colours. 
500 Main program. 
950 Quick circle. 
1030 Pen colour change. 
1220 Circles. 
1950 Radius. 
2050 Type at cursor. 
2240 Fill. 
2440 Ink change. 
2640 Save screen to memory. 
2760 Save memory to tape or disc. 
2800 Cursor jump. 
2920 Draw from memory. 
3230 Save shapes. 
3350 Input shapes. 
3520 Load picture to memory. 
3630 Go to option pages. 
3690 


Magnification or reduction. 


Position of blanks or minus in 


Machine code, allows saving and recalling a 
picture to the reserved memory. 
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50 REM keteEKeERHERERRERERHEREE EASY 
DRAW RERRRHREEREEERRSEREREEDEES 

60 REN ### A screen drawing and paint 
ing utility by Glynne Davies ### 

78 REM 

80 REM 

98 REN 

100 REM 

118 MEMORY &665A : REM * reserve meao 
ry for screen duap and disc drive * 
128 GOSUB 3700: REM # load machine co 

de for aeaory duap * 

130 REM ### Title page #¥# 

148 MODE Q@:FOR n=-PL TO 3 STEP PI/16: 
pt= (pt+1) MOD 7spc=pt+i 

150 TAG: PLOT 80+(20#SIN(n)) ,208+(128 
*C0S(n)) ypc 

168 PRINT "#--EASY DRAW--#";sNEXT: TAG 
OFF 

170 LOCATE 18,23:PRINT "BY":LOCATE 4, 
25: PEN 3:PRINT "G,M.DAVIES* 

188 FOR n={ TO 6808sNEXT 

198 CALL &BCA2 

208 MODE 2:INK 15,1: INK @,13:INK 1,01 
x=28b:y=150: beam =O: testab=3 

218 jump=20: jumpy=20:DIM blank#(100)s 
DIN character$(4a) 

228 beam=Q:LOCATE 17,12: INPUT “Do you 
want to load a picture to memory Yo 
r N"spic$ 

230 IF pic$="¥" OR pic$="y" THEN LOCA 
TE 28,14: INPUT "Type in the name of t 
he picture";pictures:ELSE 6070 258 
248 LOAD picture$,&4675 

250 CLS:LOCATE 20,12:INPUT "Please ty 

pe in the mode required (ie, @ or 1 
)";modescreen:IF modescreen > { OR ao 
descreen <0 THEN GOTO 250 

268 IF modescreen =1 THEN movx= 2:ELS 

E movx=4 

278 IF modescreen >i THEN GOTO 258 

288 MODE modescreensINK 1,24 

290 LOCATE (4*(modescreen#2)+5) ,12: IN 
PUT "PICTURE Y/N" sY$ 

308 CLS 

318 IF Y$="¥" OR Y$="y" THEN CALL 262 
15 

328 GOSUB 348 : REM * initialize # 
330 GOSUB Si@ 1 REM * program # 

340 END 

358 REM ### Initialize - set up the s 
creen ### 

368 WINDOW #2,1,2,1,22:HINDOW #3,1,88 
/movx 23,25: WINDOW 48,1, 8@/movx, 23,25 
tWINDOW #4,3,80/movx, 1,22 


378 PAPER #2,Q:PAPER #3,15:CLS #2:CLS 
3 

388 ORIGIN 64,48,64, 648,48, 408 

390 DRAW 574,1,3:DRAW 574,350,3: DRAW 
1,350, 3:DRAW 1,1,3 

400 PEN #2,@sLOCATE #2,2,2@:PRINT #2, 
CHR$ (143); ‘ 

410 REM ## Draw colours ## 

428 FOR count=@ TO 15 

430 PEN #2,count 

448 LOCATE #2,1,count+i:PRINT #2,CHRS 
(65+count) sCHR$(233) 

458 NEXT count 

468 PEN #2,4:LOCATE #2,1,1sPRINT #2," 
At 

470 PEN #2,5:LOCATE #2,1,17:PRINT @2, 
wae 

488 IF movx=2 THEN LOCATE #2,1,1:PRIN 
T #2,"A"SLOCATE #2,1,5:PRINT #2, "E":L 
OCATE #2,1,9sPRINT #2,"I"sLOCATE 42,1 
y{3:PRINT $2, "HK" 

498 shift$="SHIFT"sFOR count=1 TO Stk 
QCATE #2,1,17+countsPRINT #2,MID$ (sh 
ift$,count ,1):NEXT 

495 PEN #3, 1sLOCATE #3,13,3:PRINT #3, 
"Beam off";:REM beam off 

5@Q REM ### program ### 

505 ON ERROR GOTO 505 

S18 WHILE exit <1 


528 IF INKEY (1)=8 THEN PLOT x,y,tes: 
xextmovxtlF movtab=1 THEN extraxsextr 
axtmovx 

538 IF INKEY (8)2@ THEN PLOT x,y, tes: 
x=x-movxs IF movtab=l THEN extrax=extr 
aXx-Aovx 

548 IF INKEY (B)=@ THEN PLOT x,y,tes: 
y=y+2:GQSUB 225@:IF movtab=1 THEN ext 
raysextray+2:REM gosub to fill routin 


e 
558 IF INKEY (2)=@ THEN PLOT x,y,tes: 
yy-2:G0SUB 225@:1F movtab=1 THEN ext 
ray=extray-2 

568 IF INKEY (1)=32 THEN PLOT x,y,tes 
tx=x+jumpsIF mavtab=1 THEN extrax=ext 
rax+juap 

578 IF INKEY (8)=32 THEN PLOT x,y, tes 
txex-jumprIF movtab=1 THEN extrax=ext 
rax-juap 

588 IF INKEY (8)=32 THEN PLOT x,y,tes 
ty2y+jumpysIF aovtab=1 THEN extrayzex 
tray+juapy 

590 IF INKEY (2)©32 THEN PLOT x,y,tes 
tysy-jumpy:IF movtab=1 THEN extray=ex 
tray-jumpy 

608 IF mem=1 AND xp=XPOS AND yp#¥POS 

AND meatrip=i THEN character$(sh)=cha 
ractar$(sh)+STRS(xrel)+8TR¢(yrel):aea 
trip=@eIF LEN(character$(sh)) >240 TH 


EN SOUND 1,388,25: PEN #3, 1:LOCATE a3 
yl LePRINT #3, "Last tab setting “:aem 
= 
618 IF INKEY(5@)=128 THEN SOUND 1,108 
»20;G0SUB 2920:REM redraw aemory shap 
e 
628 IF INKEY(36)=128 THEN SOUND 1,188 
s{5:G0SUB 3520: REM load picture into 
meaory 
630 IF INKEY(16)#32 THEN CLE #4sHOVE 
O,Q:DRAW 574,1,3:DRAW 574,350, 33 DRAW 
1,358, 3:DRAW 1,1, 3:MOVE x,ysREM # era 
se picture # 
648 IF INKEY (9)=128 THEN SOUND 1,120 
1O:beamtrip=(baantrip+!) HOD 2r1F be 
amtrip=@ THEN PEN #3, {:LOCATE #3,13,3 
tPRINT #3, "Beam off";:REH beaa on/ott 
/on copy key 
650 IF beamtrip=@ THEN GOTO 478 
668 IF INKEY (9)=@ THEN beam=1sPEN #3 
yAILOCATE @3,13,3:PRINT #3, "Bean on " 
pYELSE beam=OsPEN #3,4:LOCATE #3,13,3 
SPRINT #3, "Beam off"3;:REN beam an/of+ 
/on copy key 
670 IF beantrip=1 THEN GOTO 698 
688 IF INKEY (54)=128 THEN SOUND 1,10 
@,1@:bean=(beamt+1) MOD 2:IF beaa=1 TH 
EN PEN #3, 1:LOCATE 43,13,3:PRINT #3," 
Beam on ";:ELSE beam=Q:PEN #3, 1:LOCAT 
E #3,13,3:PRINT #3, "Beam off";:REM be 
aa on/off 
698 IF INKEY(68)=128 THEN SOUND 1,188 
»20:movtab=(movtab+l) MOD 2:1F movtab 
=1 THEN PEN #3,1:LOCATE #3,1,2:PRINT 
#3,"Tab aoving "SELSE PEN 43,13 
LOCATE #3,1,2:PRINT #3,"Tab stopped 
"sxp=xptextran:yp=yptextrayrextrax 
=Brextray=8 :REM moving tab 
708 IF INKEY(35)=128 THEN SOUND 1,180 
;1B:G0SUB 3358 : REM input from tape 
74@ IF INKEY (21)=32 THEN GOSUB 1040s 
REM # pen colours # 
738 IF INKEY (45)=128 THEN SOUND 1,10 
8,25:60SUB 2800: REM cursor jump 
748 IF INKEY (68)=@ THEN SOUND 1,100, 
Sixrelsx-xptyrel=y-yp:xp=xsypayiPEN & 
S,L:LOCATE #3,1,2:PRINT #3, "X") XPOS; " 
Y";YPOS:th={smemtripei:REM tab settin 


g 

758 IF sh> 39 THEN 60TO 778 

76@ IF INKEY (38)=128 THEN SOUND 1,18 
8,S:men=(meati) MOD 2:1F mem=t THEN P 
EN #5, 1:LOCATE #3,1,1sPRINT #3, "Memor 
y on Shape"ssh:ELSE PEN #3, 1:LOCATE # 
3,1,1:PRINT #3,"Nemory is off aa 
sh=sht1 

778 IF INKEY (61)#128 THEN SOUND 1,18 
Oy Srfil=(fil+t) MOD 2:1F filet THEN L 
OCATE #3,1,1:PRINT 43,"Draw to tab on 
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"SELSE LOCATE #3,1,1:PRINT #3, "Draw 
to tab off ": REM draw to tab functi 
on 
788 IF INKEY(52)=128 THEN SOUND 1,288 
;25:G0SUB 3o3@:REM go to options page 
8 
790 IF INKEY (68)=128 THEN SOUND 1,18 
@,5: GOSUB 3230 : REM save shapes to 
tape 
BO IF INKEY (67)#i28 THEN SOUND 1,18 
@,25:PLOT x,y, 14:0SUB 968 :REM # Qui 
ck circle * 
810 IF INKEY (68)=32 THEN DRAWR xptex 
trax-XPO8,yptentray-YP08,p sPLOT x,y, 
14 


820 IF INKEY (16)=128 THEN SOUND 1,18 
@,1@:PLOT x,y,14: GOSUB 1238 : REM # 

circles, polygons * 

830 IF INKEY (53)=128 THEN SOUND 1,18 
OB, Ssinfile(infilt+t) MOD 2:1F infil=t 

THEN filc=TEST(x-2,y-2):LOCATE #3,1,1 
SPRINT #3, "Fill on "SELSE LOC 
ATE #3,L,1:PRINT @3,"Fill off 

a 


840 IF INKEY(27)=128 THEN SOUND 1,108 
y5: GOSUB 2450 :REM # ink colour chan 

ge * 

850 IF INKEY (30)=128 THEN SOUND 1,18 
Q,SsMOVE @,Q:DRAW 574,1,3:DRAW 574,35 

@, S:DRAW 1,358, 3:DRAW 1,1,3:G0TO 2658 
+ REM # picture save * 

860 IF INKEY(S1)#128 THEN SOUND 1,180 
yS'G08UB 2878 : REM # type at cursor 
* 

878 IF x=xx AND ysyy THEN GOTO 948 

880 IF beam=1 THEN DRAW x,y,pites=p 

890 IF beam=@ THEN tes@TEST(x,y)sxxax 
tyysytPLOT x,y, 14 

900 IF th=i AND fil =1 THEN DRAWR xp 
textrax-XPOS, yptextray-YPOS,p 

910 PEN @3,4:LOCATE #3,1,S:PRINT #3,* 
exp sy 

920 IF xp=xpt AND ypsypt AND extrax=x 
extra AND extray=yextra THEN GOTO 94@ 


930 PEN €3,1:LOCATE #3,1,2:PRINT #3," 
X"sxptextraxs"Y"syptextray ixpt=xpsyp 
t=ypixextratextraxtyextrasextray 

948 WEND 

958 REM ## Quick circle ## 

96@ CALL &BBIBsIF INKEY(7)=128 THEN 
GOTO 968:CALL &BBIB : 
978 qc=1:PEN @3,1:LOCATE #3,1,1: INPUT 
#3,"RADIUS<-> above 4 or cursor ente 
r O"sradx$:IF radx$=" " OR radx$="" T 
HEN G0TO 978 

975 IF ABC(radx$) ¢ 48 THEN GOTO 978 
980 radx® VAL (radx$):LOCATE #3,1,1:PR 
INT #3,SPACE$ (40): 1F radx#@ THEN 608 


UB 185@ 

998 radx=radx+(radx MOD movx) MOVE x 
tradyyy 

1888 FOR count=@ TO 368 STEP 2:DEGsDR 
AW x+(radx#CO8(count)) ,y+(radx#SINico 
unt)) ,psNEXT 

1018 LOCATE #3,1,1:PRINT @3,SPACE$ (40 
) 


1828 RAD: qc#@:RETURN 

130 REM ## pen colour change ## 
1848 IF INKEY (69)=32 THEN SOUND 1,15 
O,S:p20 sREM # At 

1058 IF INKEY (54)#32 THEN SOUND 1,15 
Q,Sipsi sREM # Bt 

1068 IF INKEY (62)#32 THEN SOUND 1,15 
Q,S:p=2 sREN # C # 

1878 IF INKEY (61)#32 THEN SOUND 1,15 
@,Ssp=3 sREM # D # 

1888 IF INKEY (58)=32 THEN SOUND 1,15 
Q,Ssp=4 sREM # E & 

1898 IF INKEY (53)=32 THEN SOUND 1,15 
Q,S:pes sREM # Ft 

{188 IF INKEY (52)#32 THEN SOUND 1,15 
Q,S:p=6 :REN # Gt 

{118 IF INKEY (44)#32 THEN SOUND 1,15 
O,S:ps7 sREM # Ht 

4120 IF INKEY (35)#32 THEN SOUND 1,15 
@,S:p2@ sREM # 1 # 

1138 IF INKEY (45)=32 THEN SOUND 1,15 
Q,Stp29 sREM # J # 

4140 IF INKEY (37)=32 THEN SOUND 1,15 
Q,S:p=l@sREM # K # 

1158 IF INKEY (36)#32 THEN SOUND 1,15 
O,S:petlsREM # L & 

{168 IF INKEY (38)=32 THEN SOUND 1,15 
O,S:pal2sREM # M # 

4178 IF INKEY (46)=32 THEN SOUND 1,15 
Q,S:p=13:REM # N # 

1188 IF INKEY (34)#32 THEN SOUND 1,15 
O,S:psl4sREn # 0 # 

1190 IF INKEY (27)=32 THEN SOUND 1,15 
@,S:p=l5eREn # Pt 

1288 PEN #2,p:LOCATE #2,2,2BsPRINT #2 


yCHR$ (233) 5 

1210 RETURN 

1228 REM ### circles ### 

1238 CALL &BBIBsIF INKEY(16)=128 THEN 
GOTO 1230:CALL &BBLB 

1240 PEN #3, 18:LOCATE #3,1, 1: INPUT 43 
y"RADIUS<~> above 4 or cursor enter @ 
"sradx$:1F radx$= " " OR radx$="" THE 
N GOTO 1248 

1245 IF ASC(radx$) < 48 THEN GOTO 124 
a 

1258 rady= VAL(radx$) 

1260 LOCATE #3,1,1sPRINT #3,8PACES (4 
B):IF VAL(radx$) < 4 THEN GOSUB 1858: 
GOTO 1388 

1270 LOCATE #3,1,1:PRINT #3,SPACES (4 
a) 

1280 LOCATE #3,1,1:INPUT #3,"RADIUS u 
p/dawn >2";rady$sIF rady$=" " OR rady 
$="" THEN GOTO 1288 

1285 IF ASC(rady$) < 48 THEN GOTO 128 
] 

1298 rady=VAL(rady$)sIF rady <2 THEN 
GOSUB 1948 

1308 LOCATE #3,1,1:PRINT #3,8PACE$ (6 
@) 

1318 LOCATE #3,1,1:INPUT #3,"Start po 
sition @ to 1 (ie .65)";stposs:IF stp 
os$=" "" OR stpos$="" THEN GOTO 1318 
1315 IF ASC(stposs) ¢ 46 THEN GOTO 13 
18 

1328 stpos=VAL(stpos$)1IF VAL (stpos$) 
DL THEN LOCATE #3,1,18PRINT #3, "BETW 
EEN @ and 1 ie. 1.25.47 .9":FOR nai 
TO 1@@:NEXT:GOTO 1318 

1338 LOCATE #3,1,1:INPUT #3, "Number o 
# sides, Go >78 for circles";side$: IF 
sides=" "OR sideg="* THEN GOTO 1338 
1335 IF ASC(side$) (48 THEN GOTO 1330 


1348 side=VAL (sides): IF VAL(side$) < 
3 THEN GOTO 1338 
1358 poly=(2#P1)/side 
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1348 LOCATE #3,1,1:PRINT #3,SPACES (4 
Q) 

1365 IF side > 19 THEN GOTO 1388 :REM 
miss delay 

1378 IF side ¢ 28 THEN LOCATE #3,1,1: 
INPUT #3,"state delay ie. 280 for par 
t shape“sdelay$:IF delay$=" “ OR dela 
y$="" THEN GOTO 1370 

1375 IF side < 28 AND ASC(delay$) ¢ 4 
8 THEN GOTO 137@: ELSE delay=VAL (dela 
y$):LOCATE #3,1,4:PRINT #3, SPACES (48 
) 


1388 LOCATE #3,1,1: INPUT #3, "Clockwis 
e plotting @ Anticlockwise L";cw$sIF 
cw$2""" OR cw$="" THEN GOTO 1388 

1385 IF ASC(cw$) <48 THEN 1380 

1398 cw=VAL(cw$)2IF VAL(cw$) >1 THEN 
GOTO 1388 

1400 LOCATE #3,1,1:PRINT #3, SPACES (4 
@) 

141@ LOCATE #3,1,1:INPUT #3, "Plot fro 
a the cursor 1 or the centre @"jstart 
at$sIF startat$=" "OR startat$="* TH 
EN GOTO 1410 

1415 IF ASC(startat$) ¢ 48 THEN GOTO 
141@ 

1420 startat=VAL(startat$):IF VAL(sta 
rtat$) >1 THEN GOTO 1410 

1430 IF th=@ THEN GOTO 1448 

1440 LOCATE #3,1,1: INPUT #3,"Draw to 
tab setting 1 or @ for off (3D)";tba$ 
tIF tbags" " OR thas="*" THEN GOTO 144 
8 

1445 IF ASC(tba$) (48 THEN GOTO 1448 
145@ thasVAL(tba$):IF VAL(tbas) > 1 T 
HEN GOTO 1448 

1460 LOCATE #3,1,1:PRINT #3,SPACE$ (4 
Q) 

1478 LOCATE #3,1,1:PRINT #3,"SPACE BA 
R 10 STOP" 

1475 radxeradxt(radx NOD movx) 

1480 IF cw=1 THEN GOTO 1680: REN anti 
clockwise 

1498 IF startat=@ THEN PLOT x,y,tes 
150@ IF startat]=1 THEN x=n-(radx# GIN 
(stpos#2*P1)):y#y~(rady#COS (stpos#2#P 
1))sMOVE x,y 

1518 MOVE x+(radx#SIN(stpos#2#PI)) ,y+ 
(rady#COS(stpos#2#P1)) 

1520 REM ## circle clockwise ## 

153@ FOR count= stpos#2#PI TO (4#P1)+ 
poly STEP poly 

1548 DRAW x+(radx#SIN(count)) ,y+(rady 
*COS(count)) »priF movtab=! THEN extra 
x= (XPOS-x) -radx#SIN(stpos#2#Pl) sextra 
y=(YPOS-y) -rady#COS (stpos#2#P!) 

1558 IF INKEY (68)=32 THEN DRAWR xpte 
xtrax-XPOS, yptextray-YPOS,p:MOVE x¢(r 
adx#SIN(count)) ,y+(rady#C0S (count) ) 


1560 IF INKEY (21)=32 THEN @OSUB 1848 
+ REM # pen colours # 

1570 IF tha=1 THEN DRAWR xptextrax-XP 

OS,yptextray-YPOS,piNOVE x+(radx#SIN( 

count) ) ,y+(rady#C0S (count) ) 

1580 IF INKEY (47)=8 THEN count=(4#P1 
)+paly 

1590 IF xyoff=1 THEN GOTO 1418 

1680 LOCATE #3,1,3sPRINT #3,°X"; XPOS; 
"Y"SYPOS 

1610 FOR rest=® TO delaysIF INKEY (47 
)=@ THEN count=(4#PI)tpoly:EL8E NEXT 
1628 NEXT 

1638 LOCATE #3,1,1:PRINT #3,SPACES (60 
)sx=XPOSs y=YPOS 

1648 LOCATE #3,1,3:PEN #3,4:PRINT @3, 
"X";XPOS;"Y";YPOStIF beam=1 THEN PEN 

#3, 1sLOCATE #3,13,3:PRINT #3,"Beam on 
"StELSE beam=Q:PEN @3,1:LOCATE #3,13 
sOtPRINT #3,"Beam off";:REM beam on/o 

tf 

1650 extrax=CINT (extrax) sextray=CINT( 
extray) 

1668 RETURN 

1678 REM ## circle anticlockwise ## 
1688 stpos=stpos+8.S:IF startat=8 THE 

N PLOT x,y, tes 

1698 IF startat=1 THEN x=x+(radx# SIN 
(stpos#2#P1)) syy+(rady#C0S (stpos#2#P 
1) 

1708 MOVE x-(radx#SIN(stpos#2#P1)) ,y- 
(rady#COS(stpos#2#PI) ) 

1718 FOR count=2#Pléstpos TO -((2#PI) 
+poly) STEP -poly 

1728 DRAW x~{radx#8IN(count)),y-(rady 
#COS(count)),p :IF movtab=i THEN extr 

ax® (XPOS~x) tradx#S1N(2#Pl#stpos) sextr 
ay=(YPOS-y) trady#COS (2#Pl*stpos) 

1738 IF INKEY (68)#32 THEN DRAWR xpte 
xtrax-XPOS, yptextray-YPOS,p:NOVE x-(r 
adx#SIN(count)) ,y-(rady#C08 (count) ) 
1748 IF that THEN DRAWR xptextrax-XP 
OS, yptextray-YPOS,psMOVE x~-(radx#BIN( 
count)) ,y-(rady#C0$ (count) ) 

1750 IF INKEY (47)#@ THEN count= -((2 
#PI)+poly) 

1768 LOCATE #3,1,3:PRINT #3, "X"; XPOS; 
“Y"s¥POS 

1778 IF INKEY (21)=32 THEN GOSUB 1840 
: REM # pen colours # 

1788 FOR rest=® TO delaysIF INKEY (47 
)=@ THEN count= -((2#PI)+tpoly) sELSE N 

EXT 

1798 NEXT 

1880 LOCATE #3,1,1:PRINT #3, SPACES (468 
)sx=XPOS:y=¥POS:count =@ 

1818 LOCATE #3,1,3:PEN 3, 4:PRINT 93, 
"X")XPOG; "VY"; YPOSt IF beam=l THEN PEN 
#3,1:LOCATE #3,13,3:PRINT #3, "Bean on 


"S:ELSE beam=Q:PEN #3,1sLOCATE #3,13 
yStPRINT 43, "Beam off";:REM beam on/o 
ff 
1828 extrax=CINTlextrax) sextray=CINT( 
extray) 

1838 RETURN 

1848 REM # horizontal cursor radius s 
etting # 

1850 WHILE radx =8 

1868 LOCATE #3,1,1sPRINT #3, "Use arro 
w keys <--> to place,then enter"; 
1878 IF INKEY(1)=@ THEN PLOT x+rstep, 
y rtesirtes=TEST (xtrsteptaovx,y)irste 
p=rsteptmovxsPLOT xtrstep,y,14 

1888 IF INKEY (8)=@ THEN PLOT x+rstep 
yy Ptesirtes=TEST (xtrstep-movx yy) rst 
ep=rstep-movx:PLOT x+rstep,y,14 

1898 IF INKEY (18)=@ THEN radx=ABS(rs 
tep):PLOT x+rstep,y,rtes 

1988 PLOT x,y,14 

1918 WENDirtes={4:rstep=BiCALL &BB18 
1928 IF gc=1 THEN RETURN 

1938 LOCATE #3,1,3:PRINT #3, SPACE$(20 
)sLOCATE #3,1,3:PRINT #3,"Hori-rad is 
"sradx;"yex" 

1948 rady=@ 

1958 REM # up/down radius set by curs 
or # 

1968 WHILE radya@ 

1978 LOCATE #3,1,1:PRINT #3, "Use arro 
w keys then press enter " 

1988 IF INKEY(@)=@ THEN PLOT x,ytrste 
pyrtestrtes=TEST (x ,ytrstep+2) irstep=r 
step+2:PLOT x,ytrstep,14 

1990 IF INKEY(2)=@ THEN PLOT x,ytrste 
p,rtesirtessTEST (x ,ytrstep-2) irstep=r 
step-2:PLOT x,ytrstep,14 

2088 IF rstep=@ AND INKEY(63)=8 THEN 
rady=radx 

2818 IF INKEY(18)=@ THEN rady=ABS(rst 
ep):PLOT x,ytrstep,rtes 

2028 PLOT x,y, 14 

2030 WENDirstep=@:rtes=@:CALL &BBOO 
2848 CALL &BBi8:RETURN 

2050 REN ### type at cursor Ht 

2068 CALL &BBIB 

2078 LOCATE #3,1,1:PRINT #3," Type 
at cursor" 

2888 LOCATE #3,1,1:PRINT 43," Type 
at cursor" 

2098 LOCATE #3,1,2sPRINT 3," (Ente 
r) to end" 

2108 FOR n=i TO SOQsNEXTSCALL &BBQ8 
2118 WHILE t¢1 

2128 types=INKEY$ 

2138 IF INKEY(18)=@ THEN PLOT x,y,@s 
t=iipapr=@:80T0 2288 

2148 TAG:PLOT x,y,p 

2158 IF type$="" GOTO 2198 
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2160 IF ASC(types)=127 THEN PLOT x,y, 
Or x=x-(movxt4) MOVE xyysPRINT " "336 
OTO 2190 

2170 PRINT types; 

2188 x=x+(movx#8) :MOVE x,y 

2190 types="" 

2280 WEND 


2218 t=O:LOCATE #3,1,1:PRINT #3, SPACE - 


$(40) 

2220 TAGOFF 

2230 RETURN 

2240 REM #* fill routine #* 

2250 IF infil = @ THEN RETURN 

2268 WHILE lin ¢< t 

2278 IF TEST (x,y) <> file THEN lin = 
1:G0T0 2338 

2280 inclsincl+movx:telf=TEST (x-incl 
1y) 

2290 IF telf# <> file THEN MOVE x,ysDR 
AW x-(inel-movx) jy palin #1 

2308 IF x¢2 THEN lint 

2318 IF y<2 THEN lin #1 

2320 IF y>348 THEN linet 

2330 WEND 

2340 lined 

2350 WHILE lin ¢ 1 

2368 incr=incr+movxiterf=TEBT (xtincr 


1y) 

2370 IF x)575 THEN lin=1 

2380 IF y<2 THEN lin=t 

2398 IF y)348 THEN linal 

2400 IF tert <> filc THEN MOVE x,ysDR 
AW x#(incr-movx) sy ,pelin =1 

241@ WEND 

2428 LineOsincl=@sincr=0s tel f=17:terf 
317 

2438 RETURN 

2440 REM ## ink change ## 

2450 CALL &BBLBs IF INKEY(27)=128 THEN 
2450: CALL &BBIB 

2455 LOCATE #3,1,1: INPUT #3,"Ink chan 
ge Y/N"; y$sIF y$="Y" OR y$="y" THEN 

BOTO 2468:ELSE LOCATE #3,1,1:PRINT #3 
SPACES (48) s RETURN 

2468 LOCATE #3,1,10INPUT #3," Pen t 
o change";in$:IF in$="" THEN GOTO 24 
60 2478 IF ASC(in$) ¢ 65 OR ASC(in$) 

D142 THEN LOCATE #3,1,1:PRINT #3,SPAC 
£$(48):60T0 2450 

2470 IF ASC(in$) <¢ 45 OR ASCIin$) >11 
2 THEN LOCATE #3,1,1sPRINT #3,SPACES( 
40):G0TO 2450 

2480 in$@UPPER$(in$)sIF ASC(in$) > 80 
THEN GOTO 2450 

2498 peASC (in$)-65 

2508 IF p)i5 THEN GOTO 2458 

2518 CLS #3 

2528 WHILE inchange <1 | 

2538 LOCATE #3,1,1: PRINT #3,"Ink cha 


nge (Shift) * 

2548 PEN 43,p 

2558 LOCATE #3,4,2: PRINT #3,"To set 
(Enter) " 

2568 LOCATE #3,1,3: PRINT #3," IN 
Keeps y"yhy 

2578 IF INKEY(21)=32 THEN i=(itl) MOD 
27 

2588 IF INKEY(18)=#@ OR INKEY (6)=@ TH 
EN inchanges1 

2598 INK pyi 

2680 WEND 

2618 i=@sinchange=8 

2628 CLS @3iPEN #3,4sLOCATE #3,1,3:PR 
INT #3,"X"3XPO83“Y"; YPOS 

2638 RETURN 

2648 REM ## save screen to memory ## 
265@ FOR n=i TO 1@@:NEXT:CALL &BBOG 
2668 PAPER #2,15:CLS @2:CLS #3 

2478 CALL 26203 

2688 CLS #4 

2698 FOR n=1 TO 208QsNEXT n 

2708 CALL 26215 

2718 FOR n=1 TO 2000:NEXT 

2720 CALL &BB88 

2738 LOCATE 2,23: INPUT"Save screen Y/ 
N"yipts 

2748 IF ipt$="Y" OR ipt$="y" THEN 60S 
UB 2770 

2750 MODE tsysy+2:LOCATE 12,12: INPUT 
"End EASYDRAW Y/N"sy$sIF y$="y" OR y$ 
="Y" THEN CALL &BCO2:NODE 1tLOCATE 6, 
2:PRINT “Easydraw program has finishe 
d":END 

2755 MODE 2:80T0 228 

2768 REM ## Save to tape ## 

2778 SPEED WRITE 1sLOCATE 1, 23s INPUT 
"Please print name "sname$ 

2788 SAVE name$,B,&6675, 44008 

2798 RETURN 

2808 REM ### cursor jump distance t## 
2810 CALL &BBLBs IF INKEY(45)=128 THEN 
GOTO 2818:CALL &BBIB 

2828 CALL &BBGe 


2838 PEN #3, 1:LOCATE #3,1, 1: INPUT #3, 
"Type in horizontal cursor jump"; jua 
psrIF jump$=" " OR jump$="" THEN GOTO 
2838 

2835 IF ASC(jump$) (48 THEN GOTO 2838 
2848 IF VAL(jump$)<4 THEN LOCATE #3,1 
sltPRINT #3,SPACE$(48):60TO 2838 

2858 juap=VAL(juap$) 

2868 LOCATE #3,1,1:INPUT #3,"Type in 
the vertical cursor jump “sjuapy$: IF 
juapy$=" "QR jumpy$="" THEN 2868 
2865 IF ASC(jumpy$) <48 THEN GOTO 286 


) 

2878 IF VAL(jumpy$)<2 THEN LOCATE #3, 
1,1iPRINT #3,SPACE$(4@):G0TO 2840 
2880 jumpy= VAL(jumpy$) 

2890 LOCATE #3,1,1:PRINT #3,SPACE$ (48 
) 

2908 LOCATE #3,1,3:PRINT 43, SPACES (20 
iLOCATE #3,1,3:PEN #3,4sPRINT #3, "X" 
XPOS;"Y";YPOS:IF beam=1 THEN PEN #3, 
{LOCATE #3,13,3:PRINT #3, "Beam on *; 
ELSE beam=@:PEN #3,1:LOCATE #3, 13,3: 
PRINT #3,"Beam off"ssREN beam on/off 
2910 RETURN 

2920 REM draw from memory 

2930 CALL &BBIBsIF INKEY(58)=128 THEN 
2930:CALL &BBIB 

2948 LOCATE #3,1,1:PRINT #3, SPACES (4B 
) 

2950 IF sh=® THEN LOCATE #3,1,1:PRINT 
43,"No shapes in memory":FOR n=1 10 
{OBOsNEXT:LOCATE #3,1,1:PRINT #3, SPA 
CE$ (40) sRETURN 

2968 LOCATE 43,1,1:INPUT 4#3,"Type sha 
pe nuaber";shapessIF shapes=" " OR sh 
ape$="" THEN BOTO 2968 

2965 IF ASC(shape$) <48 THEN GOTO 296 


C) 
2978 LOCATE 43,1, 1:PRINT #3,SPACE$ (48 
) 
2988 IF VAL(shape$) >= sh THEN LOCATE 
#3,1,1:PRINT #3,"Not available @ to" 
psh-11FOR n=1 TO 100Q:NEXTSG0TO 2948 
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Easy Drau 


L 


2998 shape= VAL(shape$) 

3008 LOCATE #3,1,1:PRINT #3, SPACES (48 
) 

3018 LOCATE #3, 1,1: INPUT #3,"At magni 
fication";mag$:mag= VAL (mag$) 

3028 LOCATE #3,1,1:PRINT #3,SPACE$(48 
) 

3030 IF mag ¢ 0.1 THEN LOCATE 93,1, 1% 
PRINT 43,"A little to small "sFOR n= 
1 TO 1888:NEXT:GOTO 3818 

3048 c=0 

3050 LOCATE #3,1,1:PRINT #3,SPACES(40 
) 

3068 IF INSTR(character$(shape)," - " 
)> 1 THEN GOTO 3a8a 

3078 character$(shape)=character$(sha 
pe)+" at! 

3088 count=0 

3098 WHILE count< (LEN(character$(sha 
pe))-3) 

3188 count=count+! 

Si1@ space=INSTR(count character$(sha 
pe)," “)sminus#INSTR count ,character$ 
(shape) ,"=") 

3120 IF space ¢ minus THEN count=spac 


e 
3138 IF space > minus THEN count=minu 


5 
S148 blank$(c)#STR$ (count) cect) 

3150 WEND 

3168 REM draw from memory 

3178 FOR count=2 TO c-3 STEP 2 

3188 drax= VAL (MID$(character$ (shape) 
VAL (blank$(count)) , VAL (biank$(count+ 
1))-VAL(blank$(count)))) 

3198 dray= VAL(MID$(character$ (shape) 
sVAL(blank$(count+1)) , VAL (blank$ (coun 
t#2))-VAL(blank$(count+1)))) 

320@ DRAWR magtdrax,aagtdray,p 

3210 NEXT count 

3228 count=Os RETURN 

3230 REN save shapes to tape 

3240 CALL &BBIB: IF INKEY(68)=128 THE 
N GOTO 3240;CALL &BBIB 

3250 LOCATE #3,1, 1: INPUT #3, "Save sh 
apes Y/N";satap$:LOCATE #3,1,1sPRINT 
#3,SPACE$(40)11F satap$="Y" OR satap$ 
="y" THEN GOTO 3260:ELSE GOTO 3348 
3268 LOCATE 43,1, 1: INPUT #3, "File na 
me" files 

3270 IF LEN(file$) > 8 THEN LOCATE 43 
yl, LePRINT #3,"Below eight letters":F 
OR n=1 TO 3OQsLOCATE 43,1, 1:PRINT #3, 
SPACES (48) :G0T0 3248 

3280 OPENOUT files 

3285 PRINT #9,sh 

3298 FOR count=8 TO sh 

3300 PRINT 49, character$(count) 

3318 NEXT count 


3328 CLOSEOUT 

3338 CLS #3:PEN #3,4:LOCATE #3,1,3:PR 
INT #3,"X"5XPOS;"Y"; YPOS; 

3348 RETURN 

3358 REM input file for shapes 

3360 CALL &BBLBsIF INKEY(35)=128 THEN 
GOTO 3378:CALL &BBIB 

3378 LOCATE #3,1,1:INPUT #3, “Load sh 
apes Y/N";lotap$sLOCATE #3,1,1sPRINT 
#3, SPACES (48): 1F lotap$="Y" OR lotap$ 
="y" THEN GOTO 338Q:ELSE BOTO 3518 
3380 LOCATE #3,1,1:INPUT #3, "File na 
me"; file$ 

3398 IF LEN(file$) > 8 THEN LOCATE #3 
yl, LePRINT #3,"Below eight letters"iF 
OR n=l TO SOBsLOCATE 43,1, 1:PRINT #3, 
SPACE$(48):G0TO 3380 

3400 OPENIN files 

3405 INPUT #9,sh 

3418 FOR count =@ TO sh 

3420 INPUT #9,character$(count) 

3438 NEXT count 

3470 FOR count=@ TO sh 

3480 IF LEFT$(character$(count) ,1)="- 
"THEN GOTO 349Q:ELSE character$(coun 
t)=" "+character$(count) 

3498 NEXT count: count=@ 

3508 CLS #3:PEN #3,4:LOCATE #3,1,3:PR 
INT #3,"X"5XPOS;"Y"; YPOSs 

3518 RETURN 

3528 REM load picture to aemory 

3530 CALL &BBLB:IF INKEY(36)=128 THEN 
GOTO 3538: CALL &BB1B 

354 LOCATE #3,1,1:PRINT #3,SPACES (40 
) 

3558 LOCATE #3,1, 1: INPUT 43,"Load in 
picture Y/N “spict$ 

3568 LOCATE #3,1,1:PRINT #3,SPACE$ (40 
) 

3570 IF pict$="Y" OR pict$="y" THEN G 
OTO 358@sELSE RETURN 

3588 LOCATE #3,1,1:INPUT 43,"Print pi 
cture name "spicture$ 

3598 LOCATE #3,1,1:PRINT #3, SPACES(48 
) 


3608 LOAD pictures ,&6675 

3618 CLS 43 

3628 RETURN 

343@ REM go to option pages 

3648 CALL &BBIB:IF INKEY(52)=128 THEN 
GOTO 364@:CALL &BBIB 

3650 LOCATE #3,1,1:PRINT #3,SPACES(4B 
) 

3668 LOCATE #3,1,1: INPUT #3,"Go to op 
tions Y/N";yes$:IF yes$="¥" OR yes$=" 
y” THEN MODE 2sy=y+2s GOTO 228: REM g 
0 to option pages 

3678 LOCATE #3,1,1:PRINT #3,SPACES (48 
) 


3688 RETURN 
3698 REM ## save picture to aemory aa 
chine code ## ‘ 

3788 FOR n=26283 TO 26226 

371@ READ x 

3728 POKE nx 

3730 NEXT n 

3748 RETURN 

3758 DATA 1,8,64,33,0,192,17,117, 102, 
237,176,281 

3768 DATA 1,0,64,33,117,182,17,8,192, 
237,176,201 


Listing II 


10 MODE @:INK O,13sINK 15,1 
20 LOAD "! filename", &C0aa 


Listing III 


10 MEMORY &665A :REM save memory for 
picture and disc drive 

20 GOSUB 3702: REM save picture to a 
emory machine code 

30 LOAD "filename" ,&6675 :REM load pi 
‘ture into aemory 

40 MODE O:INK 14,9:INK Q,13sINK 15,18 
REM set up screen mode and colours 
5@ CALL 26215 : REM picture to screen 
6 FOR n= 1 TO 20@Q:NEXTSREN wait 

70 DRAW 648,408,3 :FOR n= 1 TO 100@:N 
EXT: REM draw line across picture 

88 CALL 26283 : REM save new picture 
90 CLSsFOR n= 1 TO 18@0:NEXT 

108 CALL 26215 :REM new updated pictu 
re 

148 END 

3698 REM ## save picture to memory ma 
chine code ## 

3780 FOR n=26203 TO 26226 

3710 READ x 

3728 POKE n,x 

3738 NEXT n 

3748 RETURN 

3758 DATA 1,8,64,33,0,192, 17,117,102, 
237,176,201 

3768 DATA 1,0,64,33,117,182,17,8,192, 
237,176,201 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 


44 June 1985 


Computing with the Amstrad 


SUPERB REAL 
TIME SIMULATION 


MANUAL 


ieee DISPLAY 


to ans eae em 


Here are some screens from a typical flight showing the view from the cockpit (top half of screen) 
produced as printouts of the actual simulator. 


Areal time simulation with 3D graphics uses a massive 64000 x 64000 longitude & latitude flying 
area, making each flight completely different. Developed under pilot instruction to give realistic 
flight effect. The view through the cockpit gives moving 3D graphics. 


Comprehensive instrument panel with moving needle meters & digital displays. 15 aircraft types 
with varying control sensitivities & speeds of between 100 - 500 knots. 


3 runways available for refuelling, take off & landing. Ground and landmark orientation correct with 
all flying attitudes (rolls etc.). 


The3D graphics are still accurate when 

you fly upside down. MYRDDIN SOFTWARE, PO BOX 61, SWINDON, WILTS. 
Telephone: (0793) 40661 

3D landmarks you can fly around. Please send me Flight Simulator(s) by return of post for 
the Amstrad CPC 464 

Comes complete with manual & fully 

detailed chart of landmarks & airfields. 


Joystick or keyboard operation. 

Cassette version £11.95 Cheque enclosed for cassette £11.95/£15.95 disc (inc. P.P.) 
Disc version £15.95 OR Debit my Access A/C No:- 

If your local dealer doesn’t have it in I | I fl 
stock yet, order from us direct. 
For despatch within 48 hrs. 
(usually 24 hrs.). Signed 


OR Telephone through your Access Order. 


Computing with the Amstrad June 1985 45 


Aleatoire explains the thinking behind a classic computer challenge . 


NE of the oldest computer 
[e] games is Nim, which was 

demonstrated at the 1951 
Festival of Britain on a machine 
called Nimrod. 

Journalists reported that the 
machine was so popular — particularly 
when it beat the German Ambas- 
sador five times in a row — that a 
nearby exhibition providing free 
drinks was practically deserted. 

The game is very simple. Take a 
box of matches and lay the contents 
out ina random number of piles, each 
containing a random number of 
matches. 

Two players alternate, and each 
one can take as many matches as he 
likes from any single pile. The object 
of the game is to make your opponent 
pick up the last match. 

This game was analysed by a 


NIM-SUCHA 


Charles Bouton of Harvard University 
about 1900 and he showed that there 
is a simple strategy which plays the 
game perfectly. 

Every possible position is either 
“safe” or ‘unsafe’. Any move from a 
safe position always creates an 
unsafe position, and there is a/ways at 
least one move from an unsafe 
position which creates a safe 
position. 

The proof of this is quite complex, 
but all you, or a computer, need to 
know is how to create safe positions. 
This is done by ‘matching the 
binarys’’ — that is, by making sure that 


there are an even number of groups of 
powers of 2 — an even number of 1s, 
2s, 4s, 8s, 16s etc. 

A simple example to clarify this 
rule. Suppose you have four piles 
containing 3, 5, 7 and 11 matches, 
then, in binary: 

8 4 2 1 


3= 1 1 
5= 1 1 
7= 1 1 ‘| 
hs 1 1 1 


Here we see that there is an even 
number of 1s, an even number of 4s 
but an odd number of 2s and 8s. The 


Thoughts on number 


ICRO-Maths by Keith 

Devlin (Macmillan) is 

subtitled “Mathematical 
problems and theorems to consider 
and solve on a computer”. 

The author writes a regular 
fortnightly column for The Guardian 
and includes ‘whatever | find fun and 
of interest’, which appears to be 
mainly number theory, the Queen of 
Mathematics, of which the definitive 
book is by Beiler. 

Unfortunately Devlin appears to 
have little interest in demonstrating, 
with programs, the problems he 
considers — the ‘‘and solve on a 
computer” of the title is left entirely to 
the reader. 

Indeed, the only techniques he 
mentions are multilength working 
and fast multipliers — almost every- 
thing is treated from a maths point of 
view and various errors and miscon- 
ceptions are included. 

For example (on page 3) “‘the 
fastest computers currently — can 
perform something like 200 billion 
arithmetic operations per second”. 
Devlin does not define “billion”, so 
we British must assume he means 
that machines can add (using the 


simplest arithmetic operation) 
200,000,000,000,000 numbers per 
second! He probably meant “million” 
but the correct term is megaflop or 
gigaflop. 

Another niggle is on page 18: 
“Modern computer speeds are such 
that 50 or so users can be accessing 
the machine at the same time without 
being aware that they are not alone”. 

This is not true. Most multi-user 
computers begin to overload and 
degrade at the 50 user level until, at 
70 users, they spend almost all of the 
time swopping between the users 
and no useful work is done. This 
phenomenon is called “saturation”, is 
quite dramatic and the users are 
VERY aware of it. 

A “heavily used” computer is 
usually run just below this sudden 
degradation point and certainly does 
not “spend most of the time sitting 
idle (and) waiting”. 

We are then told to ‘Remember, 
today’s computers are capable of 
performing millions of instructions 
per second”, that is megaflops. As he 
corrects a previous error he intro- 
duces a few more — a common 
computing experience. The above 
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errors are part of an article on finding 
formulae to generate prime numbers. 

In America “heavily used’’ com- 
puters apparently do have 10 idle 
hours a day (lucky them) so programs 
to soak up this time are written, 
usually to prove that the system is 
overloaded and that more equipment 
must be bought. 

These are often very simple 
programs which search for extremely 
large, useless numbers to get the 
programmer/machine into the Guin- 
ness Book of Records. The results are 
often a triumph of computation over 
common sense and disowned by 
many pure mathematicians. 

Nevertheless | envy the two 
15-year-old Americans who got 350 
hours on a Cyber 174 to find a record 
prime in 1978. | understand the 
program but still don’t know how they 
managed to get the time. Such 
performances rely, not on the 
individual human mind, but on the 
incredible but often misunderstood 
power of the modern computer. 

The book deals with a number of 
famous, though simple, compu- 
tations of gigantic numbers such as 
Pl, primes and perfect numbers, 
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SIMPLE GAME 


position can therefore be made safe 
by removing 10 matches from the pile 
of 11 matches, and is the on/y correct 
move. 

If you play this rule a// the time 
then it guarantees that you will pick 
up the last match. To play the reverse 
game, that is to make your opponent 
pick up the last match, then play the 
rule unti/ only one pile has more than 
one match — this is inevitable — and 
then make the move that produces an 
odd number of one-match piles. 

If you are faced with a safe position 
then take just one match from the 
largest pile and b pe your opponent 


will make an error. 

A randomiser can be incorporated 
into the algorithm because some- 
times there is more than one way of 
creating a safe position. 

The above method is the way that 
many computers have been program- 
med to play this game. Once done a 
computer is quite capable of playing a 
game with a thousand piles of over a 
million matches each and, if a time 
limit were set, it would easily beat all 
humans whether they know the 
method or not. 

To give you some idea of safe and 
unsafe positions, consider an even 


crunchers 


Fermat's Last Theorem, the four- 
colour map problem, irrational num- 
bers (though no mention of the 
Golden Ratio) Archimedes’ Cattle 
Problem. 

All these computations are so 
huge that it is a grain of wheat to 
2 4 64 that you, with your puny micro 
and interpretive Basic, have no 
chance of repeating, let alone 
surpassing, the results. The book is 
therefore interesting but not very 
practical. 

Take the cattle problem, for 
example. Devlin appears rather 
ignorant of this famous Pellian 
equation — that is equations of the 
form: 

XEXs— DEy*Y ='1 

Invented by Fermat, the problem 
is, given D, to find the smallest integer 
values of X and Y. If D=92 then 
X=1151 and Y=120 are the smallest. 

For the cattle problem 
D=410,286,423,278,424 and Yisa 
206,531 digit integer! 

An American engineer, A. Bell, and 
two friends spent four years calcula- 
ting the first 32 digits in 1889 but the 
full result was not obtained until 
1965 on an IBM 7040. This answer 


covered 42 pages of printout and one 
wry comment was that the com- 
puters of the French Compagnie Bull 
would have a more appropriate 
choice. If you want to try a tricky 
Pellian set D=61. 

The answer is X=1,766,319,... and 
calculating Y is left as an exercise for 
the reader to consider. 

One other fascination of compu- 
tational maths is the personalities 
who first invented or attempted the 
problems. Apart from Fermat, all of 
them seem to have monumental 
egos. 

A story is told about Hardy, an 
English mathematician, sending a 
postcard claiming to have solved a 
famous conjecture before making a 
dangerous journey. He argued that 
God would not let him perish because 
he would then attain undeserved 
immortality. 

Surely God could have destroyed 
the postcard just as easily, but Hardy 
would probably have replied that 
maybe even God didn’t know the 
answer. A few years later Godel 
showed that certain problems, 
although they must have an answer, 
are nevertheless undecidable. 


simpler version of the game where 
there is a single pile of N matches and 
players alternate in taking any 
number of matches up to half the pile, 
that is <=N/2. Again the player who 
picks up the last match is the loser. 

Program | plays this game 
perfectly. Note that because it is an 
expert it gives an opponent the first 
move 80 per cent of the time, which 
means that you should eventually 
beat it fairly almost 80 per cent of the 
time. 

To win all the time take less than 
one match, which effectively adds 
them to the pile but the expert doesn't 
notice unless you add line 55: 

55 IF M¢1 THEN 40 

Finally, try modifying the program 
so that whoever gets the last match is 
now the winner. 


18 N=INT(RND#1000) +100 
2@ PRINT "There are "N“ matches at th 
e start" 

3@ IF RND>Q.8 THEN 80 

48 INPUT “Your move "jM 

5@ IF M>N/2 THEN 40 

68 NEN-M 

70 PRINT “You have left "N 

80 [=1 

90 [=1#2 

180 IF I<=N THEN 98 

{10 T=1/2-1 

128 IF 2#1<N THEN [=N-1 

138 PRINT “I take "N-I" leaving “I 
140 Nel 

150 IF ND{ THEN 48 

168 IF Nei THEN PRINT "I win" ELSE PR 
INT "I lose" 

17@ PRINT*Another game": GOTO 1@ 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 
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of the Mauth 


R HUMPY has the hump. 
The beautiful Esmerelda 
has been captured by the 


French when they invaded Lin- 
colnshire, and she has been taken 
to the dark and damp Boston-de- 
Stump. 

You must guide Mr Humpy over 
the roof of the Stump and rescue 
Esmerelda from her cell. 

However this is no easy matter as 
you will have to avoid lumps of rock, —< 
jump over chasms using only a= 
slippery rope, cross moving draw- 
bridges and fight off Frenchmen. 

Also on each screen is a barrel of 
TNT which is about to explode. If it 
does you lose a life. 

To move onto the next screen you 
must ring the bell. When you ring the 
bell on the 15th screen you get a 
super bonus and Mr Humpy is 
returned to Screen 1 — where the fuse 
on the TNT is burning faster. 


KEYS 
Z — Right 
X —Left 
Space — Jump 


By ARAMELLO CHAPMAN | 


ROUTINES 2880 Prints high score table and allows entry of name 
i \ z if score high enough. 
140 Main loop. Go to the various hazard moving 3280 Instructions. 
routines. Mr Humpy moving routines. 3720 Plays tune and gives super bonus when all 15 
230 Bonus gaunt decreases bonus by (1/bonus) screens completed. 
and prints fuse. 
300 Makes TNT explode. VARIABLES 
350 Moves Humpy. Reads keyboard. If jump key x,Y Mr Humpy’s Position. d 
pressed to jump routines. ropeh If Mr Humpy is on a rope = 1, if not = 0. 
560 Makes Humpy jump, tests toseeifheisonrope TOPE Position of swinging rope. 
ecraent roped Rope direction. 
800 Updates position of fire balls. pole —_Position of pole/portcullis. 
970 Updates position of guard poles. poled Pole direction. 
1070 Moves bridge on screen 9. ball Position of rock. 
1210 Moves rope on screens 1 and 13. balld Direction of rock. 
1300 Moves drawbridge on screen 10. via$ Name of high scorer. 
1380 Moves all hazards on last screen. hes igh ek 
onus onus left. 
aera Set up screens layout and all variables of | bonusd Amount by which bonus is decreasing. 
hazards used. screen Screen number. 
2130 Variable dump. bridge _ Bridge position. 
2270 Makes Mr Humpy ring bell and gives bonus. bridir Bridge direction. 
2370 = Graphics characters. score Score. 
2670 Death of Mr Humpy. lives Lives left. 


L 
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{0 REMPEEEREREEEEEEEREREEERRELES EEE 
20 REMHAREEHRHREEDA BELLSHRHEHERETE 
SO REMERRRRHRRRRRRREREERERREEREE ERE 
4Q REMHAHHHHEREBY A, Chapmanteaeeeat 
50 RE HAHAHAHA EERE RREHE 
40 REM(C)Computing with the Amstrad 
70 DIM na$(1@)sDIM hs(1@) 

8@ FOR f=1 TO O:LET na$(f)="*Nr Huapy 
*"sLET hs ()=2000- (#208) sNEXT ¢ 

9@ GOSUB 2370:REM SET UP U.D.6 

182 GOSUB 3288:REM INSTRUCTIONS 

110 GOSUB 213@:REM SET UP VARIABLES 
128 GOSUB 1520:REM SET UP SCREEN 

130 PRINT CHR$(22)+CHRS(1)sPEN @:LOCA 
TE 1B, 1:PRINT livessPRINT CHR$(22)+CH 
R$(Q)sPEN 1 

140 REVUE AHHHGHHEHEE EEE EE EEEEE 
150 REM##HEARAREMAIN LOOPHEHEHER HES 
160 REMERAREERREAAREREREREHREEEERES 
170 ON screen GOSUB 880,1210,968,890, 

800,970,960, 970, 1070, 1380, 890, 1870, 12 
10,800, 1388 

180 GOSUB 358 

190 GOSUB 238 

200 IF x=19 THEN GOTO 2278 

218 IF bonus¢=1 THEN GOTO 38 

228 GOTO 1708 

230 REMERAHEHAEELEERHE SEES EEE ERESE 
240 RENAEREFEHBONUS COUNTHE RHEE ERE 

250 REMERAHRRARHESARELERE SERRA ERERE 
268 LOCATE 19-INT(bonus) ,22:PAPER 1:P 
EN SsPRINT CHR$(225);:PAPER 3sPEN O:P 
RINT CHR$(242) 

278 LET bonus=bonus-({/bonusd 

280 PAPER Q:PEN 1 

298 RETURN 

JOO REMERAEHRERREHERERRHREREEREEHEE 
SLB RENRHHHEEHEXPLOSIONFRRRREE EERE 
320 REM RR RRR RR REET EEEREE 
330 FOR f=1 TO S:SOUND 1,0,10,7,0,0,3 
+ INK @,3:BORDER 3:SOUND 1,8,25,5,0,0 
sLOsINK @,@sBORDER @:NEXT ¢ 

340 FOR f=1 TO 1@QsNEXT #36070 2698 
S50 REMMERHAEAAAHAHERARREHRERAESERE 
360 REMHHHERHEMOVE HUMPVedaarteaees 
370 aii 
388 IF INKEY(71)=1 AND INKEY(47)=1 AN 
D INKEY(43)=1 THEN GOTO 420 

390 IF INKEY(47)=@ THEN GOSUB 548: 60T 
0.420 

400 IF INKEY(63)=@ AND x¢19 THEN BOSU 
B 4QQ:LET x=x+1:SOUND 1,200, 1:0=1 

410 IF INKEY(71)=@ AND x>i THEN GOSUB 
S2QsLET x=x-1:SOUND 1,200, 1:LET m=@ 
420 IF TEST(S2#(x-1) 48, 16#(25-(y)) +8) 
=7 OR TEST (32#(x-1)+16, 16#(25-(y))-4) 
QOS OR TEST (324 (x-2) 48, 16% (25-(y)) +8) 
=7 THEN GOTO 24678 

430 IF m=1 AND m2=1 THEN PEN 4:LOCATE 


X,ytPRINT CHR$(227)sLOCATE x ,y-1sPRI 

NT CHR$(226):PEN 1:60T0 458 

435 IF m=1 AND 222 THEN PEN 4:LOCATE 
XyytPRINT CHR$(228) LOCATE x,y~1sPRI 
NT CHR$(226)sPEN 1:G0TO 450 

440 IF a=@ AND a2=3 THEN PEN 4:LOCATE 
x ,ysPRINT CHR$(247):LOCATE x yy~1:PRI 

NT CHR$(249):PEN 1:60T0 458 

445 IF a=@ AND a2=4 THEN PEN 4:LOCATE 
Xyy#PRINT CHR$(248) LOCATE x ,y-1sPRI 
NT CHR$(249) :PEN 1 

450 IF TEST(32#(x)+8,16#(25-(y))+8)=7 
THEN GOTO 2678 

460 IF screen=12 AND (x=4 OR x=18) OR 
screen=15 AND x=16 THEN GOTO 2470 
470 RETURN 

480 LOCATE x,ysPRINT" "sLOCATE x,y~ts 
PRINT* " 

490 IF m2=1 OR m2=3 THEN LET m2=2:RET 
URN 

500 IF w2=2 OR a2=4 THEN LET a2=1 

518 RETURN 

528 LOCATE x,ysPRINT" "sLOCATE x,y-1 
PRINT" * 

530 IF m2=1 OR m2=3 THEN LET m2=4:RET 
URN 

540 IF m2=2 OR a2=4 THEN LET a2=3 

558 RETURN 

SOO REMHREREREEERERRESEAEEEE RHEE HAY 
570 REMERRHRAHHUMPY JUMPRHRRRERREEE 
SOO REMEREREEEHEASESERERREREREEERES 
598 IF INKEY(47)=@ AND INKEY(71)<>8 A 
ND INKEY(63)<>@ THEN mi=i 

60@ FOR a=-@.75 TO 0.75 STEP @.5:LOCA 
TE x,ysPRINT" "sLOCATE x,y-1:PRINT" 
"SLET ysyt3#a 

610 IF m=i AND ai=@ AND x<19 THEN LET 
xextl 

620 IF m=1 THEN PEN 4sLOCATE x,ysPRIN 
T CHR$(228) sLOCATE x ,y-LsPRINT CHR$(2 
26):PEN 1 

630 IF m=@ AND mi=@ AND x>1 THEN LET 
xex-1 

640 IF m=@ THEN PEN 4:LOCATE x,ysPRIN 
T CHR$(248) LOCATE x,y-LsPRINT CHR$(2 
49) 

650 ON screen GOSUB 808,1218,968,898, 
800,970,960, 970, 1870, 1388,898, 1878, 12 
10,800, 1388 

668 IF (screen=i3 OR screen=2) AND ro 
peh=@ AND x-1=INT(rope/8) OR (screen= 
13 OR screen=2) AND ropeh=® AND x=INT 
(rope/8) THEN GOTO 748 

678 IF TEST(32*(x-1)+16, 16% (25-(y) )-4 
)=12 OR TEST(32#(x-2) +16, 16#(25-(y))+ 
8)=7 OR TEST(S2#(x-1) +16, 16#(25-(y-1 
))+8)=12 THEN GOTO 2678 

ABR IF TEST(32(x-1) +16, 16#(25-(y))+8 
)87 OR TEST(S2#(x-1) +16, 16#(25-(y) ) #2 
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4)=7 THEN GOTO 2678 

698 NEXT a 

700 LET ai=d 

710 LOCATE x,ysPRINT® "sLOCATE xyy-13 
PRINT" * 

728 IF TEST(32#(x-1) +16, 16#(25-(y))-4 
)Q>3 OR TEST(32#(x) +16, 16#(25-(y)) +8) 
=7 THEN GOTO 2678 

738 RETURN 

748 LET ropeh=i:LOCATE x,ysPRINT® "iL 
OCATE x,y-{sPRINT* "sLET x=INT(rope/8 
LET y=9 

758 LOCATE x,ysPRINT" "sLOCATE xyy-{e 
PRINT" "sLET x=INT(rope/32) +5 

768 PEN 4:LOCATE x,y-LaPRINT CHR$(226 
)sLOCATE x,ysPRINT CHR$(229) sPEN 1 
778 GOSUB 1210 

780 IF INKEY(47)=@ THEN GOTO 568 

798 60TO 758 

BOO REM HEHEHE 
G10 REM#e#eEtHHOVE FIRE BALLSH#eeee 
B20 REMERLESEEESELERELEALSELELEEEE 
830 LOCATE ball,ilsPRINT® "sLOCATE 20 
“ball ,9sPRINT" " 

84@ LET ball=ball-1 

850 IF ball={ THEN LET ball=19 

840 PEN 7:LOCATE ball, {1:PRINT CHR$(2 
3B) LOCATE 2@-ball ,9sPRINT CHR$(238) 
878 PEN 1 

888 FOR f=1 TO 2O:NEXT #sRETURN 

890 LOCATE ball, 9:PRINT® " 

908 IF screen=8 AND (ball=6 OR ball=1 
1 OR ball=16) THEN PEN 12sLOCATE ball 
s7PRINT CHR$(232)sPEN 1 

918 LET ball=ball-1 

920 IF ball=i THEN LET ball=19 

930 PEN 7:LOCATE ball, 9sPRINT CHR$(23 
8) 

940 IF screen<>8 THEN FOR f=1 TO 20:N 
EXT ¢ 

958 RETURN 

968 FOR f=1 TO 7O:NEXT fsRETURN 

970 REWGHGEHE AH HEHEHHHHAHAEGEE REE 
980 REM###*#MOVE BUARDS POLESHESHE® 
990 REMHERAAASEERRERARERRRRHEAEE RHE 
1888 FOR f=6 TO 16 STEP S:PEN 12:LOCA 
TE ¢,polesPRINT CHR$(232):LOCATE #,po 
le-{sPRINT" "sNEXT ¢ 

1018 LET pole=poletpoled 

1828 IF pole=5 THEN LET poled=1 

1038 IF pole=11 THEN LET poled=-1 
1048 PEN 1 

1058 IF screen=8 THEN GOSUB 890 

1068 RETURN 

1070 REMERRRRREHEREER EERE REEREEEEEES 
1G80 RENPHHHESENOVE BRIDGERREH RHE EH 
UMA Eteteteetteetetiiitiriirtts 
1108 PAPER 1 :PEN 3:LOCATE bridge, 12s: 
PRINT CHR$(225);:PAPER @sPRINT" ":LOC 
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ATE bridge-4,12:PRINT" "ssPAPER 1:PRI 
NT CHR$(225) sPAPER @:PEN 1 

1110 LET bridge=bridgetbridir 

1128 IF bridge=9 THEN LET bridir=1 
1130 IF bridge=13 THEN LET bridir=-1 
1140 IF screen=9 THEN GOTO 1190 

1150 LOCATE 4,pole:PEN L2sPRINT CHRS( 
232)sLOCATE 17,pole:PRINT CHR$(232):P 
EN L:LOCATE 4,pole-1sPRINT" ":LOCATE 
17,pole-{1:PRINT" " 

1168 LET pole=poletpoled 

1170 IF pole=7 THEN LET poled=1 

1180 IF pole=11 THEN LET poled=~1 
119@ PAPER @PEN 1 

1200 RETURN 

12110 REM HHAHH ABBE HEE 
1220 REMHERHAHRHANOVE ROPERH HHH E EHS 
WWMM NA teetetttitettieti iti rs 
1240 PLOT 270,368: DRAWR ROPE-128,-120 
() 
' 

1258 LET ROPE=ROPE+ROPED 

1240 IF ROPE>225 THEN LET ROPED=-8 
1278 IF ROPE<4Q THEN LET ROPED=8 

1288 PLOT 278,368: DRAWR ROPE-128,-12 
118 

129@ RETURN 

1300 REMHERAHEHERAERHREAEARAER EKER 
131 REMHAAEHAAHOVE DRAWBRIDGES HHH 
1320 REMHESHRREARSERAR ER HERR ERERESY 
1330 PAPER 1:PEN S:LOCATE bridge, 12:P 
RINT CHR$(225)sLOCATE 19-bridge,12:PR 
INT CHR$(225)sPAPER Q:LOCATE bridget! 
sL2sPRINT" "SLOCATE 18-bridge,12sPRIN 
wee 

1348 LET bridgesbridge+bridirsIF brid 
ge=8 THEN LET bridir=-bridir 

1350 IF bridge=5 THEN LET bridir=1 
1360 PEN 1 

1370 RETURN 

1380 REM HAGE HHGHEHE EHH 
1390 REMH#EEHHELAST SCREENFHAE ERE E 
1400 REHAB HEHEHE REE 
1410 LOCATE S,polesPEN £2sPRINT CHR$( 
232):LOCATE 18,pole-3:PRINT CHR$(149) 
sCHR$(149) ;CHRS(149) :LOCATE 1@,pole-2 
PRINT CHRE(231) ; CHR$(231) ; CHRE(231)s 
LOCATE S,pole-1:PRINT" "sLOCATE 1@,po 
le-1sPRINT" " 

1420 LOCATE 16,pole-1:PRINT CHR$(232) 
SLOCATE 16,pole-2:PRINT" " 

1430 LET pole=poletpoled 

1440 IF pole=6 THEN LET poled=1 

1450 IF pole=12 THEN LET poled=-1 
1468 LOCATE ball, {isPRINT" " 

1478 LET ball=ball+balld 

1488 IF ball=15 THEN LET balld=-1 
1490 IF ball=7 THEN LET balld=1 

1500 LOCATE ball, ifsPEN 7:PRINT CHR$( 
230) 


{510 PEN 1sRETURN 

1520 RENEE CHEGHHGGHHEEE EERE 

1530 REM#E+HRAHASCREEN SET UPHHtHHEE 

1540. RENAGEHEGEHEEEHEHHGEEEGHEEE EERE 

1550 MODE Q:1F screen=i6 THEN screen= 
1 

1560 ON screen GOSUB 1580, 1950,1720,1 
720,172, 1778, 2080, 1778, 1900, 1860, 208 
08,1900, 1950, 2080, 2010 

157 RETURN 

1588 FOR #=12 TO 24 


1590 PAPER 1:PEN 3 

1608 LOCATE 1,f:PRINT STRING$(20,CHRS 
(225)) 

1618 NEXT ¢ 

1620 FOR f=1 TO 2:LOCATE 1,f:PRINT ST 

RING$(2@,CHR$(225)) :NEXT + 

1638 PAPER Q:PEN 1 

164@ LET ball=19 

165@ LOCATE 20,3:PEN 13:PRINT CHR$(23 

5)sLOCATE 20,4:PRINT CHR$(236):FOR f= 

5 TO 1O:LOCATE 28,¢sPRINT CHR$(237)3N 

EXT #sPEN 1 

1660 PRINT CHR$(22)+CHR$(1) 

1670 LOCATE 19,22:PAPER 1:PEN Q:PRINT 
CHR$ (238) sCHR$(239) sLOCATE 19,23sPRI 

NT CHR$(240) sCHR$(241) sLOCATE 1,22:PR 
INT STRING$(18,CHRE(154)):PAPER Os PEN 
i 

1688 LOCATE 2,1:PEN Q:PRINT"1UP: "sco 

resLOCATE 12,{sPRINT"LIVES: ":PEN 1 
1698 PRINT CHR$(22)+CHR$ (2) 

170@ LOCATE 2,23:PAPER 4:PEN QsPRINT* 

SCREEN";screensLOCATE 14,23:PRINT"BON 

US"SPAPER @:PEN 1 

1718 RETURN 

1728 GOSUB 1580 

1730 FOR #5 TO 15 STEP 5 

1740 LOCATE f,12:PRINT" "sLOCATE #,1 

SsPRINT" "sLOCATE f,14sPRINT" "sNEX 

Tf 

1750 FOR #=7 TO 17 STEP S:PEN 2sLOCAT 

E ¢,12sPRINT CHR$(214)sLOCATE £,133PR 
INT CHRS(143):LOCATE ,14:PRINT CHRS( 
143):PEN LsNEXT 

1768 RETURN 

1770 GOSUB 1728 

1780 FOR #26 TO 16 STEP S:PEN 10:LOCA 

TE #,13:PRINT CHR$(233) :LOCATE #,14sP 

RINT CHR$(234) NEXT ¢ 

179@ PEN 1 

1800 pole=12:poled=-1 

181@ RETURN 

1828 GOSUB 1580 

1930 FOR f=12 TO 2Q:LOCATE 5,f:PRINT 

STRING$(11," ")sNEXT f 

1840 FOR =12 TO 2OsLOCATE 15,#:PEN 2 

PRINT CHRE(143)sNEXT fsLOCATE 15,12: 

PRINT CHRS(214)sPEN 1 


1858 RETURN 

186 GOSUB 1820 

1878 PAPER 1sPEN S:LOCATE 15,12sPRINT 
CHR$(225)sPEN 1sPAPER @ 

1888 LET bridgesS:LET bridir=t 

1890 RETURN 

1900 GOSUB 1820 

1910 LET bridge=13:LET bridir=-1 

1928 LET ball=19 

193@ LET pole=11sLET poled=-1 

1948 RETURN 

1958 GOSUB 1820 

1968 LET rope={28:LET roped=8:LET rop 
eh=Q 

197@ LOCATE 16,11:PAPER 1:PEN 3:PRINT 
STRING$(5,CHR$ (225) )sLOCATE 16,103PR 
INT STRING$(5,CHR$(225))sPAPER @sPEN 
1 


1988 LOCATE 15,11:PEN 2:PRINT CHRS(14 
S)sLOCATE 15,10:PRINT CHRS(214) 

1998 LOCATE 15,12:PRINT CHR$(143):PEN 
1 

2008 RETURN 

2018 GOSUB 1580 

2028 LOCATE 4,12:PRINT" "sLOCATE 4,1 
SHPRINT" "LOCATE 4,14:PRINT" "sPEN 
2:LOCATE 6,12sPRINT CHR$(214):FOR f= 
13 TO L4:LOCATE 6,fsPRINT CHRS(143):N 
EXT f:PEN 1 

2038 LOCATE 17,5:PAPER 1:PEN S:PRINT 
STRING$(3,CHR$(225)}sLOCATE 18,6:PRIN 
T CHR$(225) ;CHR$(225) sLOCATE 9,3:PRIN 
T STRINGS (5,CHR$(225)) sLOCATE 9,4:PRI 
NT STRINGS (5,CHR$(225)) PAPER 0 

2048 LOCATE 18,3sPEN LisPRINT CHRS(25 

4)sLOCATE 18,4sPRINT CHR$(255)sPEN 1 
2050 LET ball=12sLET balld=l:LeT pole 

={2:LET poled=-1 

2060 PEN 10:LOCATE 5,13:PRINT CHRS(23 
S)sLOCATE 5,14sPRINT CHR$(234)sPEN 1 
2070 FOR f=4 TO 10:PEN 12;LOCATE 10,¢ 
SPRINT CHR$(149) sCHRE(149) ;CHRE(149)s 

NEXT #:PEN L:RETURN 

2088 GOSUB 1820 

209@ LOCATE 8,12:PAPER 1:PEN 3:PRINT 

CHR$(225) :LOCATE 12,12sPRINT CHR$(225 
) 

2108 PRINT CHR$(22)+CHRS$(1):LOCATE 8, 
SiPEN 13sPRINT CHR$(235)5" —"sCHRS( 

235) LOCATE 8,4sPRINT CHR$(234);" 
"SCHR$(236) :LOCATE 8,5 PRINT CHR$(237 
);" "sCHR$(237)sLOCATE 8, 6:PRINT C 
HR$(237)3" — "y CHR$(237 

2110 PRINT CHR$(22)+CHR$(Q):PAPER O:P 
EN | 

2128 RETURN 

QUID REMERHERAEREAEAEAERERREREEERERE 
2140 REM#RERHRARVARTABLE DUNPHERRHEX 

2150 ReNeeeeevenaeeeeniineeesedinty |p 
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2170 LET y=LisLET x=1 

2180 screen=VAL (choses) 

2190 PEN 1 

2208 LET ropeh=@ 

221@ LET bonus=18;LET bonusd=5 

2228 LET lives#3:LET nei 

223@ LET score=@sLET m2=1 

2240 ENV 6,15,-L,1sENT 1,38, 18, 1:ENV 

5,15,-1,10 

2250 ENV 1,10,-1,2sENV 2,15,1,3:ENV 3 
y1)@,2,15,-1,28 

2260 RETURN 

2270 REMHRRREAREREREHEERHRHEREEREEEE 
2288 REM###**REACH END OF SCREENRERE 

2298 REVHAHRHBEE HEHEHE RE HEEE 
2300 FOR f=1 TO 4:PEN 4:LOCATE x,y-1: 

PRINT CHR$(226):LOCATE x,ysPRINT CHRS 
(229) sLOCATE x,y-2:PRINT" ":SOUND 1,1 

48,12,0,1:SOUND 1,128,12,8,1sLOCATE x 
sY#PRINT" "sLOCATE xyy-1sPRINT CHR$(2 

29)sLOCATE x,y-2sPRINT CHR$(226) 

231@ SOUND 1,120,12,@,1:SOUND 1,140,1 

2,0,1:NEXT 

2328 LET score=score+1@#INT (bonus) 
233@ LET screen=screentl 

2348 LET x={:LET y={{sLET bonus=18 
2350 IF screen=16 THEN GOSUB 3728 
2368 GOTO 120 

2370 REMRRRHEREARHEEHEREREREREEEE REE 
2380 RENFERHHEEHREL, D, GHERERESEEERES 
2390 REMRRHREREEEEEE EEE ESHER EE EEEET 
2480 SYMBOL AFTER 224 

2418 SYMBOL 225,254,254, 2548, 239,239 
Q 
! 

2428 SYMBOL 226,56,124,126,244,236,19 
4,68, 120 

2430 SYMBOL 227,68, 254, 254,62, 60,24,2 
4,30 

2440 SYMBOL 228, 60,254, 254,126,680, 109 
1199, 182 

2458 SYMBOL 229,250,255, 126,56,56,29, 
15,7 

2460 SYMBOL 254,8,60,46,78,70,39,56,5 
5 

2478 SYMBOL 255,258, 68,68,126,126,126 
125536 

2480 SYMBOL 238,24,62,126,255, 255,126 
126,40 

2498 SYMBOL 231,24,24,24,24,24,126,68 
24 

2508 SYMBOL 232,24,24,68,98,24,68,90, 
24 

2518 SYMBOL 233, 68,66, 153,129,165, 231 
126,68 

2528 SYMBOL 234,24,126,231,165,36,36, 
36,231 

2530 SYMBOL 235,8,8,24,68,66,102,98,1 
02 

2548 SYMBOL 236,98,129,255,88, 152,188 


152, 128 
2558 SYMBOL 237,128, 128,128,128,128,1 
28,128,128 

2568 SYMBOL 238,31,43,63,223,192,92,7 
2,74 

2578 SYMBOL 239,248, 252,252, 250,2,2,2 
146 

2580 SYMBOL 248,75,66,66,64,64,64,32, 
3 

2598 SYMBOL 241,66,222,74, 18,18, 10,4, 
248 

2608 SYMBOL 242,132,74,40,151,95,40,6 
8, 146 

2b18 SYMBOL 243,0,16,45,103,114,125,2 
8,0 

2628 SYMBOL 244,8,2,226,254,254,224,0 


! 

2638 SYMBOL 247,68,127,127,126,68, 182 
1227 182 

2648 SYMBOL 248,68,127,127,127,60,24, 
24,128 

2658 SYMBOL 249,28,62,126,47,55,67,34 
130 

2655 SYMBOL 250, 198,165,198, 165,6,48, 
48,16 

2668 RETURN 

2670 REMERERESEREEESEEEEEEESLE REESE 
2b80 RENSHERESEAEAREEEEEAEEREEERES 
2690 RENFRERERESEAREREEEREESERERES 
2700 REN####E#DEATH SEQUENCER###E® 
2710 REMEREHHEESHAEEEREEEA EERE EEE 
2720 LET x=x+t1 

2738 LOCATE x-{,y-{sPRINT® "sLOCATE 
x-1,y:PEN 15:PRINT CHR$(243) ;CHRS(244 
) 


2748 PEN 1 

2758 IF bonus<=1 THEN FOR ¢=1 TO 580: 
NEXT f:G0TO 2818 

2768 RESTORE 2768 

2778 FOR f=1 TO 18 

2780 READ nyd,ni,di,n2,d2 

2798 SOUND 1,n,d,7sSOUND 2,n1,d1,6:S0 
UND 4,n2,d2,4 

2800 NEXT f 

2818 LET lives=lives~1 

2820 INK 2,20 

2838 IF lives=@ THEN GOTO 2888 

2840 LET bonus=18:LET x=1sLeT y=il 
2858 GOTO 120 

2868 DATA 1276, 188,519, 108,159, 108,11 
36,20, 284,20, 142,28, 1873, 50,268, 50,13 
4,50,1276, 20,319,208, 159, 28,8,100,8,18 
0,6, 108 

2878 DATA 1276, 188,319, 108,159,108, 11 
3, 28,284, 28, 142,28, 1873,58, 268,58, 13 
4, 58,1276, 78,319, 78, 156, 78,982, 188,22 
5, 188,113,188 

2BBR REMPEREHEESEEEEREESERESESEEEE 
2898 REMRSEEHEEHHIGH SCORESEHR EERE 
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2900 REMERREHRERERERRERREREEHEERES 

2918 MODE t 

2928 LOCATE 15,5sPEN 3sPRINT"HIGH SCO 

RE" 

2938 PEN 2 

2948 LOCATE 4,6:PRINT CHR$(158);sPRIN 
T STRINGS (30, CHR$(154));sPRINT CHRS(1 

54) 

2958 FOR f=7 TO 17sLOCATE 4,fsPRINT C 
HR$(149) LOCATE 35,#sPRINT CHR#(149)s 
NEXT f 

2968 LOCATE 4, 18:PRINT CHR$(147)33PRI 
NT STRINGS (30, CHR$(154));sPRINT CHRS( 
153) 

2978 FOR f=1 T0 8 

2988 IF scoredhs(*) THEN GOTO 3098 
2998 NEXT ¢ 

3008 FOR f=1 TO B:PEN 1:LOCATE 8, #+8s 
PRINT na$(f)sLOCATE 18,f+8sPEN 3:PRIN 
Tracecenneee “GHS(F)ENEXT ¢ 

3@1@ LOCATE 1,19:PRINT STRING$(120, 
‘4 

3028 IF INKEY$<>"" THEN GOTO 3028 

3O3@ PEN 2:LOCATE 1,22:PRINT STRINGS( 

40, CHR$(154)):LOCATE {,24:PRINT STRIN 

G$(40,CHR$(154))sPEN L:LOCATE 6,23:1N 

PUT"SELECT START SCREEN (1-15)";chose 

$ 

3048 IF VAL(chose$)>15 OR VAL (choses) 

(1 THEN LOCATE 1,23:PRINT STRING$(40, 
"");60T0 3030 

3058 LOCATE 1,23:PRINT STRING$(48," " 
) 

3068 LOCATE 11,23:PEN 3:PRINT"PRESS"; 
PEN LsPRINT"< SPACE >";sPEN SsPRINT® 
TO PLAY. "sPEN 1 

3070 IF INKEY(47)<>@ THEN GOTO 3070 
3088 GOTO 118 

3098 LET a$="ABCDEFGHIJKLMNOPGRSTUVWX 
YZ #48() 1) 28+" 4+CHR$ (258) 

$108 LET c#t9sLOCATE 1,22:PEN 1:PRINT 
af 

S110 LOCATE 2,19sPEN 3:PRINT"USE CURS 
OR KEY'S LEFT,RIGHT AND COPY": LOCATE 

3,20:PRINT"TO SELECT LETTERS, (MAXIMUM 
OF 18,)"sPEN 2:LOCATE 1,21;PRINT STR 
ING$ (40, CHR$(154)) 

3128 LET x$="" 

3130 FOR z=1 10 18 

314@ LOCATE c,23sPEN 2sPRINT" " 

3158 IF INKEY(1)=@ AND c<4@ THEN LET 
cactl 

3168 IF INKEY(8)=@ AND c)1 THEN LET c 
=c-1 

S165 IF INKEY(9)=8 AND c=48 THEN LOCA 
TE 7,#+8sPRINT" "SLET x$a"" 
18070 3128 

317 IF INKEY(9)=8 THEN LET x$=x$+HID 
$(a$,c,L)sLOCATE 7+2,f+8sPEN 1sPRINT 
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MIDS$(a$,c)1)sFOR az1 TO 2QB:NEXT arNE 
XT 236070 3210 

$188 LOCATE ¢,23:PRINT"#" 

319@ FOR ael TO S@sNEXT a 

3200 GOTO 3140 

3210 LET hs(B)=score:LET na$(8)=x$ 

3228 LET #0 

3230 FOR z#1 10 7 

3248 IF hs(z)<hs(z+1) THEN LET t#hs(z 
+1) sLET he (zti)shs(z)sLET he(z)=tsLeT 
agsna$(z+1)sLET na$(zt1)sna$(z) :LET 
na$(z)=a$sLeT fal 

3258 NEXT z 

3260 IF f#1 THEN GOTO 3228 

3278 BOTO 3088 

S280 REWRAERHHEAEEREEEEEEREREEAEES 

3290 RENHHEE+EFINGTRUCTIONS HHH HEE 
3300 REMPRERARERTHERELEREREE EATERS 

3310 MODE 1: INK @,O:BORDER @ 

3328 PAPER 1sPEN 3sPRINT STRINGS (40,C 
HR$(225))sFOR f#1 TO 7sLOCATE 1,fsPRI 
NT CHR$(225) sLOCATE 40,#sPRINT CHR$(2 
25) NEXT #:PAPER @ 

3330 LOCATE 17,3:PEN 2sPRINT STRINGS( 
B,CHR$(131))sLOCATE 17,4:PEN 3:PRINT" 
DA BELLS":PEN 1:LOCATE 17,5sPRINT STR 
INB$(B,CHR$ (148) ) 

3340 PAPER L:PEN 3sPRINTSPRINT STRING 
$(BQ,CHR$(225) ):PAPER @ 

3350 PEN 2 

3368 PRINT" Mr Huapy is very sad, The 
love of his life Esnerelda has been 
captured and putin the horrible Bost 
on-de-Stuap." 

3370 PRINT" It is your task to help 
him run along the heavily guarded wal 
1 of the Stump and free Esmerelda ¢ 
rom her cell." 

3388 PRINT" There are however some o 
bstacles whichare out to stop you, Th 
ese include manicFrenchmen, magenta-c 
oloured rocks and a barrel of TNT whi 
ch is about to explode." 

3398 PAPER 1sPEN SsPRINT STRINGS (40,C 

HR$(225)):PAPER @ 

S40@ LOCATE 1,22:PEN 2:PRINT STRINGS ( 
4Q,CHR#(131))sLOCATE 1,24:PRINT STRIN 
G$(40,CHRS(148))sLOCATE 7,23:PEN 3sPR 
INT"Press <SPACE BAR) to continue” 
3410 IF INKEY(47)<>@ THEN GOTO 3410 
3428 CLS 

3438 PAPER 1:PEN 3sPRINT STRINGS (40,C 
HR$(225))sFOR f#1 TO 7sLOCATE 1,#sPRI 
NT CHR$(225)sLOCATE 48,fsPRINT CHRE(2 

25) sNEXT #sPAPER @ 

3448 LOCATE 17,3sPEN 2:PRINT STRING$( 
Q,CHRS(131))sLOCATE 17,42PEN SsPRINT" 

DA BELLS":PEN 1:LOCATE 17,5:PRINT STR 
ING$ (8, CHR$(142)) 


3450 PRINTSPEN SsPAPER 1sPRINT STRING 
$(80,CHR$(225)):PEN 2:PAPER @ 

3468 PRINT” To complete each screen 
you must ring the bell. If you can ri 

ng it before the TNT explodes you wil 
1 be given a bonus. However if the TN 

T explodes one of your lives will be 
lost." 

3470 PRINT" Once you have finished a 
11 15 screens a Super Bonus is given 

and you have to start again. But thi 
s time the fuse on the TNT will be b 

urning a lot faster." 

3480 PAPER LaPEN 3sPRINTsPRINT STRING 

$(BQ,CHR$(225)):PEN 1:PAPER @ 

3498 LOCATE 1,22:PEN 2:PRINT STRINGS( 

40, CHR$(131)) LOCATE 1,24:PRINT STRIN 
G$(40, CHRS (148) ) 

3508 LOCATE 7,23:PEN 3sPRINT"Press <S 

PACE BAR> to continue" 

3518 IF INKEY$="" THEN GOTO 3518 

3520 IF INKEY(47)<)@ THEN GOTO 3520 

3530 IF INKEY$<>"" THEN BOTO 3530 
354@ CLS 

3558 PAPER LsPEN 3sPRINT STRINGS (40,C 
HR$(225))sFOR #1 TO 7sLOCATE 1,#:PRI 

NT CHR$(225) LOCATE 48, fsPRINT CHRS(2 

25):NEXT fsPAPER @ 

3568 LOCATE 17,3sPEN 2sPRINT STRINGS( 
8, CHRS(131)):LOCATE 17,4:PEN 3:PRINT" 
DA BELLS":PEN 1:LOCATE 17,5:PRINT STR 
ING$ (8, CHR$(140)) 

3578 PAPER 1:PEN SsPRINTSPRINT STRING 
$(80,CHR$(225)):PAPER @ 

358@ PEN 3 

3590 LOCATE 17,1@:PRINT*THE KEYS": PEN 
2sLOCATE 17,11sPRINT STRING$(B,CHRS( 
131)) 

3600 PEN SsLOCATE 14,12:PRINT"X..+ «mo 
ve left" 

S618 PEN 1sLOCATE 14, 14:PRINT"Z....90 
ve right" 

3620 PEN 2:LOCATE 14,16:PRINT"SPACE.. 
sto jump" 

3650 PEN 1sLOCATE 9,18:PRINT"Z and SP 

ACE to juap left" 


3660 PEN SsLOCATE 9,20sPRINT"X and SP 
ACE ta jump right" 

3670 PEN 2sLOCATE 1,22sPRINT STRINGS( 
40, CHR$(154) )sLOCATE 1,24:PRINT STRIN 
6$(48,CHR$(154))sPEN SsLOCATE 8,23: 1N 
PUT"SELECT START SCREEN (1-15)";chose 
$ 


3688 IF VAL(choses)<1 OR VAL(chose$) > 
15 THEN LOCATE 1,23:PRINT STRINGS(40, 
""):60T0 3678 

3698 LOCATE 1,23:PRINT STRINGS (40," " 
)iLOCATE 11,23:PEN 2:PRINTPress <SPA 
CE) to Play." 

3700 IF INKEY$<>" " THEN BOTO 3708 
371 RETURN 

3720 REMPRRHREHHHHEEEERREREEREEREEE 
3730 REM#REEEACONGRATULATIONSHHREEE 
STAG REMHRHRREEEEEERREERREEEER REESE 
3758 LET bon=INT(RND#4@) #18 

3760 LOCATE 6,2:PEN 14:PRINT bon+50a; 
"BONUS " 

3778 RESTORE 3830 

3780 FOR Fei TO 24sREAD NiSOUND 4,N,2 
O,15,4:NEXT F 

3798 FOR Fel TO S@QQ;NEXT F 

3808 LET score=score+S@a+bon 

3810 PEN 1sLET bonusd=bonusd-1:IF bon 
usd THEN LET bonusd=1 

3820 RETURN 

3830 DATA 60,53, 47,45, 68,0,45,47,45,4 
530,53, 47,45,36,40,40,45,45,47,53, 
47, 68,9999 9999 


Give your fingers a rest... 


All the listings from this month’s 
issue are available on cassette. 


See our special offer on Page 77. 
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NE of the major differ- 
[e) ences between a tape and 

a disc system is. the 
amazing speed at which programs 
load and save. What took minutes 
before now takes seconds. 

Not only does this great speed 
advantage enable you to use your 
time more efficiently, and generally 
make programming more bearable, 
but it allows programs to be written 
which were impractical before. The 
long wait for programs or data to load 
has been banished. 

A menu program to display the 
contents of a disc and allow the easy 
selection of programs demonstrates 
the advantages of the system 
admirably. 

Most disc menu programs have 
the names of all the files stored in 
data statements. They then read the 
names, print a list and allow you to 
select a program. 

This is fine if you don’t intend to 
change the contents of the disc very 
otten, but a pain in the neck if you do, 
and all the data statements have to be 
changed when it is used with another 
disc. 

What is needed is an intelligent 
menu — one which looks at the disc to 
see what is onit rather than fixed data 
statements. Disc Menu — | know it’s 
not an original title, but it is 
descriptive — is such a program. It 


ROLAND WADDILOVE says... 


It’s so easy 
from this 


does not rely on data and it does not 
matter what is on the disc, or whether 
it has been changed in any way by 
adding, deleting or renaming files 
since the menu was added. 

In fact you could load Disc Menu 
off one disc, insert another with a 
completely different set of files and 
run it with this. 

Simply: 

RUN 
or 
CHAIN *menu” 


(after typing it in and saving it first of 
course), and a menu of all the files will 
be displayed with a pointer next to the 
first. 

The pointer, indicating the current 


selection, can be moved up and down 
the list using the cursor keys and a file 
loaded and run by pressing Enter. It 
couldn't be easier to use, and it makes 
the whole system so much friendlier. 

There is also an option to 
selectively list a particular type of file, 
such as all the Basic programs or all 
the binary files, and you could extend 
the list to include other types if 
desired. 

Binary files present a few problems 
—you can't load them below HIMEM, 
and are they machine code programs 
or data such as a screen dump? So if 
the current selection is a binary file, 
detected by looking for .BIN in the 
name, then you are requested to input 
a new value for HIMEM (just press 


10 REM Disc Menu 

20 REN By R.A.Waddilove 

30 REM (c)Computing With The Amstrad 
A i)| s2strece soc recite) 
50 GOSUB 180;REM Initialise 

6@ GOSUB 460;REM gat names 

70 IF INSTR(file$,".BIN")=@ THEN RUN 
tiles 

8B CLS: INPUT "HIME "ya 

9Q IF a=&8000 THEN NEMORY &7FFF ELSE 
IF a THEN MEMORY a~1 

1@@ PRINT "Load or Run (L/R) 2" 

110 kge"" 

120 WHILE k$<>"L" AND k#<>"R" 

13@ k$=UPPER$(INKEY$) 

140 WEND 

150 IF k$="L" THEN LOAD files ELSE RU 


180 REM Initialise 


190 {DISC 

200 MODE 1: 1NK @,O:BORDER @ 

210 DEFINT b-2 

220 DIM name$(44) coord (64,1) 

230 FOR i=l TO 20 

240 READ a$ 

250 POKE &8000+i ,VAL("&"+a$) 

268 NEXT 

270 DATA DD,6E,08,0D,66,82,CD,75,BB,C 
D,40,BB,DD,4E,04,DD,46,05,77,C9 

280 readchar=&8001;char=0 

290 prog=istypes="" 

300 PAPER 3:LOCATE 9,5 

31@ PRINT " Print menu for...? " 

320 PAPER @:PEN 2 

33@ LOCATE 12, 1@sPRINT "1. All files” 
34@ LOCATE 12,12:PRINT "2, Basic only 
1 


35@ LOCATE 12,14:PRINT "3, Binary onl 


368 LOCATE 12,16:PRINT "4. Back up on 


ty" 
370 WHILE types<"{" OR types>"4" 

380 types=INKEVS 

390 END 

400 ON VAL (types) GOTO 410,420,430, 44 
a 


410 types="":RETURN 

420 types=",BAS"s RETURN 

430 types=", BIN":RETURN 

440 types=". BAK" sRETURN 

ASQ REM -=----nnn--nnnnnn nnn n nnn nn 
440 REM Get program nanes 

470 MODE 2: INK 1,0:PEN 1: CAT 

480 FOR x=1 TO 41 STEP 20 

490 y=4:CALL readchar ,@char,x,y 

500 WHILE char<)32 

518 name$(prog)="" 

520 FOR i=@ TO 11 

53@ CALL readchar ,@char ,xti,y 

548 name$ (prog) =nane$ (prog) +CHR$ (char 
) 
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to choose 
menu... 


Enter if you don’t want to change it). 
Then you must say whether it is to be 
loaded or run. 

How does Disc Menu work? At 
first | thought it wouid be impossible 
given the scant information in the 
manual supplied with the disc drive. It 
is in fact very simple. 

If you wanted to find out what is on 
a disc what would you do? Type CAT 
and read the names printed on the 
screen. This is exactly what the 
program does. 

Although there isn’t a Basic 
command to read the screen, the 
operating system is capable of it. To 
use the routine CALL &BB6O, the 
code for the character at the text 
cursor position is in the A register on 


return. A very short (20 byte) machine 
code routine was written to read the 
character at any position and place 
the code in a variable. The disc is 
catalogued and the names read into 
an array, provided they are of the right 
type, by scanning the screen using 
the readchar machine code routine. 

You will not see this happening as 
the current pen ink is set to black, the 
same as the background. It doesn’t 
fool the readchar routine though. 
What you will notice is a slight delay 
while it carries this out. 

It is then a relatively simple matter 
to list the names and print the pointer. 
So it does not matter what is on the 
disc, it is simply catalogued and the 
information read off the screen. A 


This program is suitable for the 
new CPC664 (above), which has 
built-in disc drives, as well as the 
separate disc drive used with the 
CPC464. 


menu is prepared from this. 

Please note that there is only room 
for about 40 file names on the screen. 
lf you have more than this on the disc 
then choose any option other than 1, 
which prints all the files. 


Initialise variables. 
Get type — add your 
own if desired. 

Read names into array,| 
640-750 Print menu. 

760-880 Select program. 
name$(64) File names. 
coord(64,1) Print positions. 
Number of programs. 
File type. 

Character read from 
screen. 


180-290 
300-440 


460-590 


550 NEXT 

560 IF INSTR(name$(prog) ,type$) THEN 
prog=prog+! 

570 y=y+{sCALL readchar ,@char,x,y 
580 WEND 

590 NEXT 

600 HODE 1sPEN 1:INK 1,24 

618 prog=prag-1 


620 IF prog=® THEN PRINT TAB(S)"No fi 

les of that type on disc..."sFOR i=@ 

TO 5000: NEXTs RUN 

430 PAPER 3 

640 LOCATE 10,fsPRINT "DISC 4H 

ENU" 

650 PAPER @ 

660 y=3snum=(prog\2)+(1 AND prog) 

470 FOR i=t TO prog 

680 y=yti-L#(prog<2i):1F isnumti THEN 
y=4-1#(prag<2t) 

698 coord(i,@)=4+(28 AND i num) :coord 


(i, tey 

708 LOCATE coord(i,®) ,coord(i,{) 

710 PEN 2sPRINT LEFT$(name$(i) , INSTR< 
name$(i),".")-1)5 

720 PEN SsPRINT MID$(name$(i) , INSTR(n 
ama$(i),",")) 

730 NEXT 

740 LOCATE 4,25:PEN 3:PAPER 1 


750 PRINT " Select with "sCHR$(240);" 
and "}CHR$(241);" then ENTER "; 

760 i=1sPEN L:PAPER @ 

778 GOSUB 870 

780 WHILE INKEY$<>CHR$(13) 


798 IF INKEY(@)>-1 THEN GOSUB B5@:i=i 
+(i>1):G0SUB 878 

880 IF INKEY(2)>-1 THEN GOSUB 850si=i 
~(i<prog):G0SUB 878 

B18 FOR j=1 TO 200;NEXT 

820 WEND 

830 files=name$(i) 


848 RETURN 
850 LOCATE coord(i,@)-2,coord(i,1):PR 
INT " "SSTRINGS(14,CHRS(9))5" * 

868 RETURN 

870 LOCATE coord(i,@)-2,coord(i,1):PR 
INT CHR$(243) s STRINGS (14, CHRS(9)) 5 CHR 
$(242) 

88@ RETURN 


Give your fingers a rest... 


All the listings from this month's 
issue are available on cassette. 


See our special offer on Page 77. 
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OUR sixth reference chart puts 
all the opcodes and firmware 
routines from Mike Bibby’s 
machine code articles together 
in handy form. 


Table /V: AD ID 
‘ A,rand 
opcodes 1 SUB 


Table Vill: 16 bj i 
foe Peeks with register 
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CharQut Txt Output 


Everything ‘5 Preserved, 
Clear the 9raphics window 
On exit AF BC, DE and HL are 
Corrupt, 

Clears Currently Selected 


ClrGra¢ Gra Clear Hindow 


CirText Trt Clear Window 


GrafLine Gra Line Absolute 


ition to 9raphics 
Position Specified, 

DE Contains destination’s X 
Coordinate, 

HL Contains destination’ Y 
Coordinate, 

AF BC, DE and HL Corrupt, 

All other registers are 
Preserveg, 

Noves text Cursor to SPECI fied 
POSition, 

On entry H has Coluan nuaber, 
has row nuaber, 

On exit AF and HL are Corrupt, 
Sets Paper ink for Current 
5Creen, 

On entry 4 Contains the ink 
Nuaber, 

On exit pF and HL are Corrupt, 
Sets size Of a text Window for 
the Current Stream, 

On entry H.p Contain the Column 
Nuabers of the Window, LE 


PosTCur 


SetPaper Txt Set Paper 


TextWin 


On exit AF, BC, DE, HL are 
Corrupt, 


Table |x: Useful firmware Toutines < 
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VENIN’ all. I’ve already 
had some rather nice 
letters from people who 


have benefited from the debug- 
ging tips we've looked at so far. 

One delighted chap said that he'd 
given up the ghost on eight of his 
listings but has since managed to 
resurrect them, all thanks to my hints. 
| was quite chuffed and it encouraged 
me to seek additional ways to help 
people with listing problems, 

In the last issue of Computing with 
the Amstrad we looked at methods of 
moving progressively through your 
program using the STOP command to 
narrow down the location of an error 
line. 

There are a couple more similar 
ideas that you could use in 
circumstances where you don’t want 
the ‘Break at line...” message 
printed on the screen. 

The command END inserted in the 
same way as the STOP command will 
result in only the “Ready” prompt 
being printed. 

If you want to avoid any message 
at all printed on screen the method to 
use is to insert a “dummy” line in the 
form: 


20 GOTO 20 


This literally suspends the program 
at line 20 until you press Escape 
twice. | used this last month to find a 
well hidden mistake in my young 
son's Smiley program. If | take you 
briefly through the procedure it may 
help you if you encounter similar 
problems. ; 

Once the screen had initialised, but 
before the game got under way, the 
maze scrolled up one character, and 
the resulting screen display was just 
about recognisable, but rubbish. 

From a quick read through the 
listing the appropriate subroutine 
appeared to be typed in correctly. | 
mentioned last month the advantage 
of being able to read through any part 
of a listing and know what was going 
on. 

Here | didn’t have to read through 
the whole program because | was 


ALAN McLACHLAN 
delves deeper 
into debugging 


able to find the subroutine that 
initialised the screen. This was made 
easier by reading the list of 
subroutines published with the pro- 
gram. 

| first tried the STOP hint that | 
showed you. This, of course, printed 
the ‘Break at line...’ message and 
scrolled the screen anyway, so it 
didn’t help in this case. The way | 
found the bug was to type in the 
dummy line: 


905 GOTO 985 


and check to see if the scroll had 
occurred, It hadn't, so | deleted line 
905 and replaced it with: 


915 GOTO 915 


and so on until | had used line 945 
and knew that | was just after the 
instant that the screen scrolled. | 
re-checked by putting in the dummy 
line again just before to make sure. 

To cut a long story short, | then 
listed what appeared to be the 
offending line and found in fact two 
lines 930 and 940 joined together as 
one. 

How could this happen? Very 
easily when you're using the Copy key 
for editing. I'm sure you know what | 
mean, but I'll show you an example. 
If: 

LIST 28 
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hes 


et th 


results in the following being dis- 
played: 


28 MODE 1:GOSUB 5@8:GOSUB 688: G0SUB 
708 
38 PRINT "Al" 


line 30 must have been copied onto 
the end of line 20, otherwise it could 
not be listed with. List 20. This won't 
happen often, but it has happened to 
me more than once, and in the way of 
things I've no doubt it will happen 
again. It’s certainly worth bearing in 
mind. 

Another useful hint for finding an 
error without destroying any part of 
your program is to REM the particular 
line that you think is causing the 
trouble. 

As you should know by now, 
anything following a REM statement 
(short for REMark or REMinder if you 
like) is ignored by the program 
(sometimes when I'm talking to the 
kids | get the feeling that everything | 
say begins with a REM). 

So inserting a REM at the start ofa 
line results in all the commands in 
that line being ignored. You could 
achieve the same effect by deleting 
the line completely, but. by using REM 
you still have the line intact on screen. 

Returning things to the original 
state is simply a matter of deleting the 
REM rather than having to type in the 
line again. 

You can, in fact, insert the REM in 
any part of the line after a colon. You 
can even bypass a whole subroutine 
by REMing the line which contains 
the GOSUB. This is a useful way of 
avoiding screens of instructions at the 
start of a game. 

But be careful that no variables are 
set up in the routine, or you'll get 
some annoying results. 

Another problem can occur when 
you've finished typing in a program. 
You'll sometimes get strange results 
on the screen but because things 
happen so fast it’s often difficult to 
establish exactly where in a program 
a certain action is taking place. For 
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example, in one version of Digger | 
recently looked at there were all sorts 
of weird shapes dotted about the 
screen and none resembled the 
shapes that should have been there. 

In order to solve this apparent 
disaster it was necessary to pinpoint 
when these ‘thingies’ were being put 
on screen. 

Finding this exact moment can be 
a bit hit and miss, even using the 
STOP hint we've discussed. The 
following routine should narrow 
down the areas of trouble by putting 
control of the whole screen display 
literally under your finger tips a frame 
at a time. 

It is very important that you follow 
these steps exactly or you're going to 
have even weirder results than the 
ones you had in the first place. 

Make sure your program is 
numbered in 10s, even if you have to 
renumber it yourself. You achieve this 
by typing in the command RENUM 
[Enter]. Now type in the following in 
direct mode, in other words without a 
line number: 


KEY 139, "WHILE VAL(INKEY$) <> 1 
:WEND" + CHR$(13) 


This line sets up the small Enter 
key in the numeric key pad cluster 
with the instruction between the 
quotation marks. This instruction is 
used to make the program wait for 
the number 1 key to be pressed 
before it continues — the number 1 
key next to Escape, not next to Shift. 

What the instruction is actually 
saying is “While the value of the key 
being pressed does not equal 1 — do 
nothing” followed by an Enter — 
CHRS$(13). 

Next type in direct: 


AUTO 5 


REM are 


C It is important to follow these 

steps exactly or you'll have 
even weirder results than those 
you had in the first place 9 


es 


and then keep pressing the small 
Enter key. You will see the WHILE... 
WEND line being automatically 
entered in every alternate line ending 
in the number 5. 

Continue until you reach a line 
number higher than the final line 
number of your original program. At 
this point in the proceedings if you 
type in LIST [Enter] you will actually 
see every alternate line containing the 
new instruction. 

If you now type in RUN [Enter] you 
can single step through the program 
at your own speed and watch for 
something on the screen that you 
want to trap. Pressing Escape twice 
will jump out of the program at a line 
number very close to your mistake. It 
can't be the exact line number of 
course because you will always stop 
at a line ending in a 5. 

While this routine may not 
pinpoint the error exactly, at least it 
will stop you in the subroutine that is 
causing the problem. 

When you've finished, removing 
the odd line numbers is a simple 
matter. Set up the same Enter key to 
putin a space and an Enter as follows: 


KEY 139," " + CHRS(13) 


Now keep pressing Enter again 
and you will see all the line numbers 
ending in 5 scrolling up the screen 
with an asterisk * against them. The 


6 One way to find an error 
without destroying any part of 
your program is to REM the line 
you think is causing the trouble 9 


asterisk is not actually entered in the 
line, it is merely a symbol that that 
line did exist. Continue until you get 
the message “Line does not exist’’. 
This tells you that you have just 
deleted the last 5 line and you can 
carry on normally. 

Well | think you've had enough 
practical tips to be going on with, but 
Ill end with a word of warning. 

Armed with your newfound knowl- 
edge, there will be a great temptation 
to burn the midnight oil hammering 
away trying to find that one last bug. 

This is great if things work out well 
but not so great if you're having a 
rough time. The programmer's bible 
states: “In every program there is 
always one more bug”. 

You want to hear our editor after a 
late night de-bugging session. ‘Got 
that damn program working at last 
lads. Took me till 3 this morning, but | 
finally cracked it’, he says/mumbles/ 
groans/grunts (delete word not 
required) propping eyelids open with 
two match sticks. 

“Super”, thinks |, “but we know 
we're going to pay for it later in the 
day when he’s shattered”. 

Don’t do it unless you are really 
under pressure. Give yourself a break. 
Make a cuppa, throw stones at next 
door’s dog or get another program 
out and tinker with that for a bit. 

But don’t be too insistent on 
finishing it all in one session. I've 
seen, among programmers, more 
head banging than you'll see at a 
heavy metal concert and there really 
is no need for it. 

Programming is fun, and the 
results can be very rewarding. Let's 
try to keep it that way. 

See you next month. 
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IRST the good news. This 
month we’re going back 
to our good old basic 


SOUND command. 
Made up of: 
SOUND channel ,pitch, duration, voluae 


it ignores the envelopes and noise, so 


things should be a lot simpler. 
The bad news is that the channel 


parameter isn’t quite the simple 
beastie that | told you it was. 

However, for the time being, let's 
stick to the old formula where a 
channel parameter of 1 produces a 
noise on channel A, while 2 uses 
channel B, and 4 plays on channel C. 

Let's play a note on channel A 
with: 

SOUND 1,208, 108,7 


This produces a note of pitch 200 
which lasts for one second and is 
played at full volume. To play the 
same note on channel B we'd use: 


SOUND 2,208, 108,7 
and on channel C: 


SOUND 4,288, 108,7 


Exciting stuff isn’t it? Using these 
three commands you may think that: 


SOUND 1,288,108, 7:SOUND2, 288, 
188,7:SOUND 4,288, 180,7 


would produce the same note at the 
same time on each of the channels. 
You'd be right. 

But what does: 


SOUND 7,208, 188,7 


produce? Try it and see. If you can 
find any difference between that 
noise and the one produced by the 
previous set of three sound com- 
mands you've got better ears than | 
have. (Which probably explains a lot 
about this series!) 
The point is that: 


SOUND 1,208, 1@8,7:SOUND2, 288, 
188,7:SOUND 4,288, 188,7 


and: 
SOUND 7,288, 108,7 


produce the same noise. The question 
is why? It must be something to do 
with the 7 in the channel parameter of 
the single SOUND command, but 
what? 

After all, there are only three 


You wanna play 


channels and we've got numeric 
labels for each of them. So what's 
happening? How do we get three 
notes playing at once from a single 
SOUND command? 

Well, take a look at the channel 
parameter of: 


SOUND 7,288, 108,7 


again. Notice that the sound is played 
on channels A, B and C. Now we 
know that the number labels for these 
channels are 1, 2 and 4. And guess 


NIGEL PETERS 
examines that awkward 


channel parameter in 
Part VI of his series 
on CPC464 sounds 


what 1+2+4 adds up to? 

Yes, it’s the 7 that we had in the 
channel parameter of the solitary but 
very productive SOUND command. 

From this you should be able to see 
that when we want a SOUND 
command to play a note on more than 
one channel, we add together the 
individual channel numbers to form a 
new, combined number. 

When the Amstrad finds this 
number it realises that you want the 
note to play on more than one 
channel and takes the appropriate 
musical action. 

In the case of: 


SOUND 7,288,188,7 


the micro came across 7 in the 
channel parameter and immediately 
realised that this wasn’t the normal 1, 
2 or 4 it might have expected. 
Being a computer, and therefore 
good at maths, it then broke the 
number down into the component 
1=2+4 and played the note on 
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channels A, B and C. 

So, by adding together the channel 
parameters we can make one 
SOUND command to do the work of 
two or three. 

To play a note on channels A and C 
at the same time, we'd use a channel 
parameter of 5 (1+4) as in: 


SOUND 5,300,58,6 


while to play the same note on 
channels A and B we'd use a 
parameter of 3 (1+2). 

Table | shows how the differing 
channel parameters bring different 
combinations of channels into play. 

Now let's leave combined channel 
Parameters and get back to our 
simple SOUND commands. 

Try entering: 


SOUND 1,200, 188,7: 
SOUND 1,300, 108,7 


channel channel 
parameter 


1 


NO oe 
~ eee oe LI 


X channel used 
/ channel silent 


Table |: Channel parameter 
combinations 
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order of the lines that you'll hear the 
first sound, then the second, then see 
the message. 

In fact what happens is that the 
micro starts the first sound, puts the 
second on the queue for channel C 
and then goes on to the next 
statement. 

This means that the first note is 
heard, the message appears and only 
when the duration of the first note is 


and see, or rather, hear what 
happens. You get a one-second note 
at pitch 200, followed by a 
one second note at pitch 300. This is 
more or less what you'd expect. 

The Amstrad comes to the first 
SOUND command, processes it and 
starts playing the note. 

While this note is playing, the 
micro comes to the second SOUND 
command and processes that. Now it 
has a problem. 

The second SOUND command has 
told it to play a note on channel A but, 
in the very fast world of microelec- 
tronics, the first note is still playing. 

What can it do? Should it interrupt 
the first note? Or should everything 
grind to a halt until the first note is 
finished and the second SOUND can 
be processed? 

The answer is that the Amstrad 
lets the first note carry on playing for 
its full duration and pops the second 
on to what is known as a queue. 

When the first note is finished, the 
micro looks at the queue, finds the 
second note stored there, and plays it. 

The good thing about the queue is 
that the program can carry on doing 
other things, rather than waiting for 
SOUNDs to be processed. 

If you don’t follow that, try: 


SOUND 4, 1080, 588,5: 
SOUND 4,180,588,5: 


PRINT "The Aastrad gets on with other 
things" 


Here you might expect from the 


finished do we hear the second note. 

The queue is used for storing notes 
while the micro gets on with 
processing any Basic statements that 
follow. 

There is a separate sound queue 
for each channel, each totally 
independent of each other. 

These queues, however, are 
limited in length. There is only room 
for one note to be playing and four 
notes to be stored on the queue. After 
that you've got problems, as shown 
by Program |. 

As you can see, the FOR... NEXT 
loop is trying to play ten notes, one 
after another. After each note a 
message is to be printed. 

It seems fairly straightforward, but 
if you expected a note to be played, 
then a message, then another note, 
then another message, you'll have 
been disappointed. 

The first time round the loop the 


Amstrad plays the note and prints the 
message. 


However, the next four times 
round the loop the first note hasn't 
finished playing. 

What happens is that the four 
notes produced by these cycles are 


1 REN Program 1 
20 FOR note= { TO 1@ 

30 SOUND 1,18@#note, 188,7 
4@ PRINT "Note nuaber "note 
50 NEXT note 

6@ PRINT "The program is finished..." 
70 PRINT "the music lingers on." 


popped on to the queue waiting for 
their chance. 


PRINT commands, however. There's 
nothing to stop these appearing as 
normal, so we get the first five 
messages appearing before the first 
note has finished! 


There's a note sounding, and there 
are four notes on the queue, waiting 
to play. 


room, yet on the sixth time round the 
loop, line 30 is telling it to make a 
noise! Something has to give. 


grinds to a temporary halt waiting for 
a space to appear in the queue. 


ding, the second comes off the queue 
and is played. The remaining three 
notes ‘‘shuffle’’ along the queue 
leaving a space at the end. 


putting the sixth note on the end of 
the queue and printing the appropri- 
ate message. 


round the loop the micro comes up 
against the same problem, a SOUND 
to be processed and no room on the 
queue. 


until a space is free. 


starting explains why the first five 
messages appear in a flash while the 
next five come at one-second 
intervals as the notes change. 


for each channel, each queue holding 
four notes as well as the one currently 
playing on that channel. 
independently. 

attempt to put a note on a channel 
queue that’s already full, then 
everything comes to a halt until a 
space appears for it. 


can mess up another channel. 


sound on one channel even though 


There are no problems with the 


Now the Amstrad has problems. 


The queue is full, there’s no more 


What happens is that the program 


When the first note stops soun- 


Now the Amstrad can carry on, 


The trouble is that the next time 


Again the program grinds to a halt 


You can see that this stopping and 


As | said before, there is a queue 


Each channel queue operates 


Having said that, though, once you 


In this way one channel's problems 


Program II shows how a note can 


1@ REM PROBRAN 11 
28 SOUND 1,100,580, 7 
30 FOR notest 10 18 


4@ SOUND 2,10@*note, 100,7 
50 PRINT "Note number "note 
6@ NEXT note 
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another has a full queue. Can you 
explain why? 

Leaving queues for a moment, 
listen to Program Ill. 


1@ REM PROGRAM TIT 
28 SOUND 1,239, 100,5 
38 SOUND 1,190, 100,5 


48 SOUND 1,213,100,5 
58 SOUND 1,239,108,5 


This consists of a four-note “tune”. 
Each note is played on channel A one 
after the other, each note lasting for 
one second. The whole tune takes 
four seconds. Now bend your ear to 
the charms of Program IV. 


1@ REN PROGRAM IV 
28 SOUND 2,119,10,7 


30 SOUND 2,127, 180,7 
40 SOUND 2,159,200,7 


This is made up of three notes 
played one after the other on channel 
B. The first two notes each last for 
one second, the last one for two 
seconds. Again, the whole tune lasts 
for four seconds. 

Now, in the interests of harmony 
and to excite music-lovers every- 
where, let's combine the two tunes. 
One way of doing this is shown in 
Program V: 


1@ REM PROGRAN V 
20 SOUND 2,119, 188,7 
30 SOUND 1,239, 180,5 
4 SOUND 2,127,100,7 
50 SOUND 1,190, 108,5 
68 SOUND 2,159,200,7 
78 SOUND 1,213, 10@,5 
80 SOUND 1,239, 180,5 


The way that the SOUND com- 
mands are arranged reflects the 
structure of the combined tunes. Line 
20 starts a one-second note on 
channel B while line 30 starts another 
one-second note playing on channel 
A. 

Since they are both on different 
channels, they are played simultan- 
eously, and so a pleasing harmony is 
heard. (Well, | think it’s pleasing.) 

The next two lines again put a note 
on each channel, with line 60 putting 
a final two-second note on channel B, 
matched by lines 70 and 80 putting 
two one-second notes on channel A. 

The whole tune lasts four seconds 
and, as we've kept below six notes on 


each channel, we've no queue 
problems. 

Program VI plays exactly the same 
melody even though the SOUND 
commands are in a different order. 


1@ REM PROGRAM VI 

20 SOUND 1,239, 10,5 
30 SOUND 1,198,100, 5 
48 SOUND 1,213, 100,5 


5@ SOUND 1,239,100,5 
68 SOUND 2,119, 188,7 
79 SOUND 2,127, 180,7 
88 SOUND 2,159,208,7 


Here all the channel A sounds 
come before the channel B sounds in 
the listing. 

The micro works its way through 
first four notes, playing one and 
putting the other three on the channel 
A queue. 

Then it comes to the three SOUND 
commands for channel B. It 
processes these, playing the first and 
popping the other on to the queue for 
channel B. 

This all happens so quickly that we 
hear the notes on channels A and B 
start at the same time, even though 
the statements that produce the 
notes are four lines apart. 

To be really accurate, the Amstrad 
does take time processing lines 30, 
40 and 50, putting these notes on the 
queue before it reaches the first 
channel B note and plays it. 

This means that the notes don't 
start at exactly the same time. Having 
said that, | can't hear the difference 
and | doubt if anyone else can. 

Previously we've had an example 
of how too many SOUNDs can mess 
up a Basic program, causing it to 
pause. 

Program VII shows how the 
Amstrad getting on with Basic can 
mess up the pattern of SOUND 
commands that go together to make 
up tunes. 

You'll see that apart from line 40 


1@ REN PROGRAM VII 
28 SOUND 1,239, 108,5 
30 SOUND 1,190, 189,5 
4B FOR delay=1 TO 20B:NEXT delay 
5@ SOUND 1,213, 100,5 


68 SOUND 1,239, 188,5 
78 SOUND 2,119, 180,7 
88 SOUND 2,127, 188,7 
98 SOUND 2,159, 280,7 


this is exactly the same as the 
previous program. Yet the tune is 
destroyed. 

What's happened is that the micro 
has processed lines 20 and 30, 
playing one note and popping the 
next on the channel A queue. 

Then it hits the delay loop and 
hurtles round 40 times doing nothing 
but taking up time. 

Once the loop is finished, the 
program goes on to lines 50 and 60, 
popping these notes on the queue. 

Finally the micro reaches line 70 
and starts playing the first note on 
channel B, putting the next two on the 
channel B queue. 

The problem arises because the 
first note on channel A has been 
playing for some time before the first 
note on channel B is started. 

Previously they began at the same 
time (or as near as made no 
difference). Now, however, the delay 
loop has slowed down the program so 
much that by the time the micro 
reaches line 70 everything is out of 
step. 

Try changing the length of the 
delay loop to see the effect. 

You might say: ‘Well don’t stick 
delay loops in your tunes and 
everything will be all right’. It’s a fair 
point, but remember we can only 
have five notes at a time on a channel 
without causing problems. 

However, any decent tune has a lot 
more than five notes so if we want 
musical accompaniment to our 
programs we have to grab five notes, 
do something else, then grab other 
notes as space appears in the queues. 

The delay loop in Program VII 
symbolises these ‘‘something else’’s. 

As you can see, while the program 
is doing these other things, tunes can 
get out of step. Don’t worry, though, 
we're not stuck to a repertoire of 
five-note ditties. 

Program VIII shows how to over 
come the problem. 

As you can hear, the tune is intact, 


10 REM PROGRAM VIII 
28 SOUND 17,239, 108,5 

30 SOUND 17,198, 188,5 

4@ FOR delay TO 280:NEXT delay 
50 SOUND 17,213, 180,5 
68 SOUND 1,239, 188,5 
70 SOUND 18,119, 198,7 
8@ SOUND 18,127,188,7 
90 SOUND 18,159,208,7 
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despite the delay loop. The secret lies 
in the funny-looking channel para- 
meters. 

Remember how we can add 
together our channel numbers to 
form new, more powerful channel 
parameters? 

Well we can use the same sort of 
technique to ensure that notes in 
different channels are playing in step. 
We just add 8, 16 or 32 to the 
appropriate channel parameter as 
needed. 

Suppose we wanted a note on 
channel A to be played starting at 
exactly the same time as a note of a 
different pitch on channel B. 

What we do is to cause the notes 
to “rendezvous” with each other by 
adding the relevant number to the 
channel parameter. 

To get a note to wait until a note is 
ready on channel B we add 16 to its 
channel parameter. 

We want a note on channel A to 
coincide with a note on channel B, so 
we add 16 and 1 to get a new 
parameter 17. 

So: 

SOUND 17,108,100,5 


produces a note on channel A that 
will only play when there's a note on 
channel B. 

That seems simple enough, so, if 
you haven't already, enter: 


SOUND 17,186, 108,5 


and listen to what happens. 

Nothing should happen, as adding 
8 to the parameter has told the micro 
to wait for a note on channel B and 
there isn’t one, yet. So let's give ita 
note on channel B with: 


SOUND 2,4808,1@0,5 
You'll probably be disappointed 


that all you hear is the low note on 
channel B. The high note waiting on 
channel A hasn't put in an appear- 
ance, even though we've given it a 
note on channel B. Has something 
gone wrong? 

The answer is that it’s our fault. 
We've added 16 to the first note’s 
channel parameter to tell it to wait for 
a note on channel B but we haven't 
marked out which note on channel B. 

It takes two to make a rendezvous 
and both have to recognise each 
other. 

Not only must the first note have a 
number added to its channel 
parameter, the second one has to as 
well. 

It’s rather like two people meeting 
for the first time. One will have a 
bowler hat on, the other will be 
carrying a copy of The Times. 

In the example above, the note on 
channel A was wearing its bowler hat 
(17) but the note on channel B wasn't 
carrying its copy of The Times. As a 
result, they passed each other by. 

What we should have done was 
add 8 to the channel B note’s 
parameter. If my maths is correct 
2+8 gives 10 so: 


SOUND 16,4008, 108,5 


should not only produce a low note 
but also bring the high note on 
channel A out of hiding. 

Try it and see. 

To sum up, two notes can be made 
to start at the same time or 
rendezvous by adding the appropriate 
values to their channel parameters. 

To get a note to wait for one on 
channel A before we start, we add 8. 

For a rendezvous with channel B 
we use 16 while a date with channel 
C has us adding 32. 

Table Il summarises the situation. 


Souad 


It takes two to make a 
rendezvous, and both have 


to recognise each other 


Addition | Rendezvous with 
Channel A 
Channel B 
Channel C 


Table //: Rendezvous factors 


Using this, we can have a note on 
channel A coinciding with one on 
channel C using: 


SOUND 33,600, 188,7 
and: 


SOUND 12,3588, 100,7 


Similarly, to link notes on B and C 
we use: 


SOUND 34,12,100,7 
with: 
SOUND 28,3758, 100,7 


Using your new-found knowledge, 
you should now be able to see how 
the 17’s and 10's of Program VIII 
work to overcome the delay loop. 

The note on channel A can’t start 
playing until it comes across another 
marked for rendezvous on channel B. 
This means that the notes stay in 
step. 

And that’s it for this month. We'll 
be exploring the channel parameter in 
more detail next time. 

Until then, play around with the 
values given in Tables | and Il and 
seen how they work in practice. 

You may find that it helps to have 
set up the small Enter key with: 


KEY 139, "SOUND 135,0,8,B"+CHR$(13) 


Now when the sound channels get 
out of hand just press the small Enter 
and all the garbage will be cleared. I'll 
explain why in a future issue. 

And, when you're more familiar 
with rendezvous, perhaps you'll be 
able to see why Program VIII suffers a 
bit from ‘overkill’. Have fun. 


Sel 
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Make sure 
you don’ 


go out of 


bounds ~Lii 


N this, the last of the 
present series on anima- 
tion, we'll go through a 


few more interesting methods 
which help improve animation. 

As you know, the Amstrad has two 
cursors, one for text the other for 
graphics. Normally the PRINT com- 
mand outputs text to the text cursor 
(the big square blob). But by using the 
command TAG you can force all the 
PRINTs to output text to the graphics 
cursor instead. TAGOFF reverses the 
effect. 

The graphics cursor, which is 
invisible, can be positioned at any 
pixel point on the screen, unlike the 
text cursor which can only be moved 
to defined character cells. 

This means that once TAG has 
been executed the text can also be 
printed from any pixel point. In 
addition, you can select the way in 
which the text is placed on the screen, 
the three different ways being EOR, 
AND and OR. 

These logical operators, as they 
are known, are used to determine the 
colour of the pixel to be displayed. For 
Our purposes we'll only be interested 
in EOR. 

Let’s consider the case where the 
text is being printed at the graphics 
cursor, EOR is being used to calculate 
the resultant colours and we're in 
Mode 1. 

If we have a blue background 


(colour 0) and we print a yellow 
character (colour 1) the resultant 
character will be yellow because O 
EOR 1=1 (yellow). 

But if we now display the same 
character — with the same colour — 
over this one the previous character 
will disappear, because 1 (yellow) 
EOR 1 (yellow) =0 (blue). So instead 
of displaying another character on the 
screen we erase the previous one. 

Using the EOR option allows us to 
display a character on the screen and 
then erase it, by repeating the same 
operation. It’s our old familiar now we 
see it, now we don't, using a new 
technique. 

Program | does exactly this. Use 
the Z and X keys to move Smiley left 
and right. 

Line 30 selects the EOR printing 
mode. 

Line 40 initialises the X coordinate 
to 0. 

Line 50 displays Smiley on the 
screen using a subroutine formed by 
lines 90-130. 

Line 60 tests to see if the Z key is 
pressed. If it is, the character is 
deleted (the first GOSUB 90) and 
moved left by one character cell 
(X=X—16). Now Smiley is displayed 
in his new postion (the second 
GOSUB 90). 

These steps are not executed if 
Smiley is at the left edge of the 
screen, when X=0. 


Third and 
final part 
of KEVIN 
EDWARDS’ 
series on 
Amstrad 
Basic 
animation 


18 REM PROGRAM 1 
20 MODE 1 

30 PRINT CHR$(23) s CHR (1) 

40 X20 

50 GOSUB 90 

60 IF INKEY(71)= AND X)@ THEN GOSUB 
90: X=X-16:GOSUB 90 

70 IF INKEY(63)=@ AND X<623 THEN GOS 
B 9O:K=K+14:G0SUB 98 

88 GOTO 60 

90 MOVE X,159 

100 TAG 

118 PRINT CHRS(224); 

120 TAGOFF 

138 RETURN 


| 


Program | 


Line 70 tests the X key. Again, 
GOSUB 90 is used to delete and 
display Smiley. The character is 
moved right by one character cell by 
adding 16 to X. This time the 
character is not moved if it’s at the 
right hand edge of the screen. 

Line 80 ‘jumps’ back to line 60. 

Line 90 MOVEs the graphics 
cursor to Smiley's current position. 

Line 100 makes all text go to the 
graphics cursor. 

Line 110 prints a Smiley character 
at the graphics cursor. 

Line 120 restores text output to 
the text cursor. 

Lines 90-130 are used to display 
and delete the character. This saves 


64 June 1985 


Computing with the Amstrad 


repeating similar program lines. 

To show you one of the dis- 
advantages of EOR add the following 
line to Program |: 


25 LOCATE 28,16sPEN 3:PRINT “EOR 1S 
CLEVER" 


Now see what happens when you 
move Smiley over the text. Cyan 
appears (colour 2) where Smiley and 
the text overlap. 

But where did the cyan come 
from? Nothing was printed in cyan! 
In fact, cyan appeared because 1 
(yellow Smiley) EOR 3 (red text) = 2 
(cyan). 

If this seems double Dutch to you 
don't worry, the colour changes are 
made by the CPC464. You can learn 
more about EOR in May's Bits and 
Bytes — but you don’t have to 
understand it to use it! 

To change the subject, any moving 
object has its movement restricted by 
something. On the Amstrad, the 
restrictions are the edges of the 
screen display. 

The easiest way to stop a moving 
object going ‘‘out of bounds” is to 
keep a record of its position. Knowing 
where an object is allows you to 
check that any future movement 
doesn’t move outside the defined 
limits. 

These limits don’t have to be the 
edge of the screen. They can be any 
part of the screen you choose. 

Program II bounces a ball 
diagonally around the Mode 1 screen. 
The variables X and Y contain the x 
and y coordinates of the ball. These 
correspond to the text coordinate 
positions on the screen. 

Let's take a look at how it works. 


1@ REM PROGRAM 11 

20 MODE 1 

30 Xe5sY=5 

40 ON INT(RND(1)#4)+1 GOTO 50,60, 72,8 
Q 


50 Rke1sRY=-1:60T0 90 

60 RX=-L:RY¥=1:G0T0 90 

70 RXeisRY=-1:60T0 98 

88 RXe1sRV#1 

90 IF (X4RX)<1 OR (X#RX) 939 THEN 48 
100 IF (Y#RY)<1 OR (Y+RY)>24 THEN 4@ 
{18 LOCATE X,YsPRINT CHR$(32); 

120 XsX+RXrV=YeRY 

138 LOCATE X,¥sPRINT CHR$(231); 

150 GOTO 9@ 


Program II 


Line 30 initialises X and Y. 

Line 40 selects a random number 
between 1 and 4 and jumps to line 50 
if the number is 1, 60 if the number is 
2 and so on. This selects a random 
direction for the ball. 

Lines 50 to 80 define the relative 
change in direction of the ball for four 
different directions. RX is the relative 
change of the X coordinate, RY is the 
relative change of the Y coordinate. 

For example, line 70 indicates that 
the change in X will be 1 (RX=1 
means move the ball right by one 
character cell) and the change in Y 
will be —1 (RY=—1 means move the 
ball up one character row). 

Moving an object right and up is 
the same as moving the ball north 
east where north is the top of the 
screen. 

Line 90 checks to see if the X 
coordinate will still be on the screen if 
the ball is moved in the new direction. 
If the ball would move off the screen a 
new direction is selected — the 
program jumps to line 40. 

Line 100 does the same as line 90. 
This time it checks the Y coordinate. 

Line 110 positions the text cursor 
at the ball’s previous position and 


1@ REN PROGRAM 111 

20 MODE 1 

30 X25: ¥=5 

48 LOCATE X,YsPRINT CHR$(231) 

5@ ON INT(RND(1)#4)#1 GOTO 40, 78,80, 9 
a 

60 RY=-L:R¥=-1:60TO 100 

70 RX=-1:R¥=1:G0TO 100 

BB RX=1:RV==1:60T0 100 

90 RA=1:RY=L 

100 IF (X#RX)<1 THEN GOSUB 190: %=40:6 
O70 140 

118 IF (X#RX))39 THEN GOSUB 190: Ket:6 
OT0 140 

120 IF (Y#RY)<1 THEN GOSUB 190:¥=2416 
OTO 140 

130 IF (Y#RY))24 THEN GOSUB 198: Y=116 
OTO 140 

148 GOSUB 190 

158 XeX#RXsYeV#RY 

168 LOCATE X,YsPRINT CHR$(231)y 

170 IF INT(RND(1)#15)+1218 THEN 50 
188 GOTO 100 : 

198 FOR delay=1 TO SQ:NEXT delay 

208 LOCATE X,YsPRINT CHR$(32); 

210 RETURN 


Program III 


Auimation 


deletes it by PRINTing CHR$(32) —a 
space. 

Line 120 calculates the ball’s new 
position. 

Line 130 displays the ball. 

Line 150 continues the movement 
in the same direction by jumping to 
line 90. 

At the moment the ball will only 
change direction if it hits the edge of 
the screen. If you add the following 
line the ball will also have the 
opportunity of changing direction 
whenever it wants. See if you can 
work out why! 


148 IF INT(RND(1)#28)=18 THEN 48 


Program II| checks for boundary 
collisions. This time the ball is moved 
to the opposite side of the screen 
when a boundary is met instead of 
changing direction. 

Lines 100 to 130 are responsible 
for checking if the ball is out of 
bounds. If it is, the X and Y 
coordinates are adjusted accordingly. 

For example, if a ball is at X 
coordinate 40 — the right hand edge 
of the screen — and it moves north 
east, the new X coordinate would be 
41. 

But this is off the screen — Mode 1 
has only 40 characters per row, so 
line 110 would reset X to 1 — the left 
edge of the screen. The same 
happens if the Y coordinate goes off 
the screen. 

If you think you're clever enough 
you can try and make the ball move 
vertically and horizontally — not at the 
same time though. 

Finally we come to Program IV. 
Type it in and RUN it. All you'll see is 
Smiley walk across the screen until Bp 


1@ REM PROGRAN IV 
20 NODE 4 
30 XetsYet4 


4@ LOCATE INT(RND(1)#20)+15,Y 

5 PRINT CHR$(143) 

60 LOCATE X,Y 

70 PRINT CHR$(224) 

8G IF TEST(X#16,(((26-¥) #16)-1))<>8 T 
HEN END 

90 FOR delay={ TO SO:NEXT delay 

1@@ LOCATE X,Y 

118 PRINT CHR$(32) 

120 X=X+1 


130 GOTO 48 
SS SMe AP a US | 


Program IV 
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he hits a randomly positioned block. 

What's so clever about that? The 
answer is the collision detection. 

What you have to do is test if the 
character can be moved to the next 
character cell. This is done by looking 
at the top left corner of the character fo) 
cell to see if any pixels are set. We do (0) 
this with the appropriately named 
TEST command. 

TEST x,y returns the colour of the 
pixel at graphics coordinate x,y. If the 
colour of the pixel is the same as the 
background then it is safe to move the 
character, for nothing has been hit. 
Otherwise, a foreground colour had 
been detected, indicating that an 
object has been found. 

The problem with this is that the 


1 


graphics x and y coordinates are not 
the same as text coordinates. Take a 
look at Diagram I. 

So what we must do is convert a 
text coordinate into a graphics one so 
that we can test its pixel colour. 

The following statement will return 


Graphics screen coordinates 


Text screen coordinates 


Diagram |: Screen coordinates 
for Mode 1 


the colour of the top left pixel of a 
character at text coordinate X,Y — 
Mode 1 only: 


pixcol=TEST((X-1)#16, (((26-Y)#16)-1)) 


Note that only the top left pixel of 
the character is tested. If you look at 
line 80 you'll see the equation. 

If you’re wondering why the 
(X—1)*16 is X*16 in the program, 
remember we're checking one 
character ahead in the X axis 
direction. So (X—1+1)*16 becomes 
X*16. 

Line 40 randomly positions a block 
on the same line as the stick man. 

You should be able to understand 
the rest of the program by now. 

And that’s the end of this series. | 
hope it has given you more ideas for 
your own animation. 

As you've seen, animation is quite 
easy and can be achieved by using 
very simple Basic commands. Now 
it's your turn to write your own 
animated programs. | look forward to 
seeing some of them. 

=| 


=< PRIN TERCAND = 


UK’s LOWEST PRINTER PRICES 
FULL PRINTER SUPPORT FOR THE AMSTRAD 


ORDERED TODAY — DELIVERED TOMORROW 
DOT MATRIX 


EX VAT INC VAT 
£133.00 £152.95 
£185.00 £212.75 
£185.00 £212.75 


BROTHER HRS 
SHINWA CPA80 
EPSON RX80 
EPSON RX80 F/T + 
EPSON RX100 
EPSON FX80 
EPSON FX100 


£314.00 £361.10 
£425.00 £488.75 


NEAR LETTER QUALITY 


£245.00 £281.75 
SPECIAL OFFER £245.00 £281.75 
£340.00 


KAGA KP-810 
CANON 1080A 
KAGA KP-910 
CANON 1156A 


40.00 £391.00 
SPECIAL OFFER £340.00 £391.00 


DAISY WHEEL 


DAISY STEP 2000 
JUKI 6100 
EPSON DX100 


TASWORD TWO 
TASPRINT 
TASCOPY 
PRINTER CABLE 


COLOUR PRINTERS 
SPECIAL OFFER £450.00 £517.50 


DISK DRIVES 
60.00 £184.00 


lus Overseas Orders Welcome. Printers (Securicor) £10.00 
Printerland 
Unit 27, Estate Buildings, Railway St, Huddersfield HD1 1JP 
Showroom open Mon-Fri 9-6pm. Sat morn 9-1pm 


Tel: Huddersfield (0484) 514105 or (0484) 687875 
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ames 


OVER 200 AMSTRAD ne 
CASSETTE TITLES 
OVER 90 NOW 
TRANSFERRED TO DISC 
ALL NOW IN STOCK 


SOFTWARE for CP/M- 
Macro 80, Microsoft Basic, Microsoft 
Basic Compiler, other titles on request. 


New titles — Ghostbusters, Artwork, Combat Lynx, 
Roland in Space, Decathlon, Tank Busters 
and Maxam ROM. 
Full Business Software range for £39 


Amstrad CPC664 now in stock — 
Disc software already available. 


@ TAPE TO DISC TRANSFERS @ 


CPC464 & CPC664 


Mail order welcome, P&P free of charge 
Please send sae for full list to: 


TIMATIC SYSTEMS LTD 


Registered Office: Sales and Repairs: 
NEWGATE LANE FAREHAM MARKET 

FAREHAM, HANTS P014 1AN FAREHAM, HANTS 

Tel: FAREHAM (0329) 239953 Tel: FAREHAM (0329) eee: 
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CUT LOADING TIME DRAMATICALLY AND LIST 
YOUR WELCOME TAPE WITH OUR WELL KNOWN 
“SYCLONE” PROGRAM 


kkKRK 


TRANSFER YOUR PROGRAMS ONTO DISC WITH 
OUR EXCITING NEW PROGRAM “TRANSMAT” 


NOW AVAILABLE 
SCRIPTOR FOR THE DMP 1 PRINTER OWNER 


kek 


Always the first and the best software, offering more features and better value for money 
than other similar programs available. We also offer a fast reliable and friendly mail-order 
service. Look at just some of the features our programs offer. 


RSX. SYCLONE 


Back up copy or convert your programs to load in up to 4 times faster. 
Features include: + Commands available from Basic + Choice of 4 loading speeds, 1000 
to 4000 baud + Comprehensive header reader + Load and list protected basic programs. 


Cassette £6.95 inc P&P 


TRANSMAT 


Transfer your software onto the Amstrad Disc System (DDI-1) 
Features include: + Faithfully transfer all programs + Add relocater if necessary + Auto or 
non-auto modes + Erase or rename programs + Comprehensive header reader. 

Cassette £7.95 inc P&P 


ZEDISII 


Acomprehensive machine code editor and disassembler. 
Features include: + Continual menu display + Break point insertion + Register inspection 
+ High speed hex.code/string search + Hex.code/string input. 
Instructions included to disassemble the ROMs. 
Cassette £6.95 inc P&P 


Disc £10.95 inc P&P 


PRINTER PAC, 1 


A Printer enhancement program for the DMP1 and Epson compatible printers such as 

the Epson RX80 and Shinwa CPA80. 

Features include: + Screen dump in all modes + 2 sizes of dump for Epson compatible 
printers + Text dump in all modes + 3 new type styles for the DMP1 + Abbreviated 


codes to printer. Cassette £5.95 inc P&P 
Disc £9.95 inc P&P 


**SCRIPTOR** 
For the DMP1 Printer. This marvellous program allows 6 type styles to be used on 
the DMP1. 
Including realwriting, italics etc. on sets of your own design. It also overcomes that lower 
case descender problem brilliantly. The program pack only £6.95 inc P&P or £10.95 on 
disc. S.A.E. for details. 
ALL DISC BASED TITLES HAVE 
FREE DISC SPACE AVAILABLE TO USER 


* SPECIAL OFFER * 
Worth £3.95 
Buy more than one title and get a cassette containing 
a real time Digital Alarm Clock FREE (while stocks last) 


PRIDE UTILITIES LTD (CWA) 
7 Chalton Heights, Chalton, Luton, 
Beds. LU4 SUF. 


Customer Enquire 0582 411686 
Sam — 10am 


Europe — ADD £1 per title Rest of World — ADD £1.50 per title 


MICROWARE DISCOUNTS (Cleckheaton) \ 


Adventure Quest 7.99 Ghostbusters 10,99 Return to Eden 8.20 
Airtraffic Control 675 Ghouls 6.75 Roland Ahoy 775 
‘American Football 8.20. Grnd Prix Driver 6.95 Roland Goes Digging 7.15 
Bridge Player 9.95 Harrier Attack 7.50 Roland on the Run 115 
Centre Court 715 Heroes of Khan 5.95, Software Star 6.75 
Chess (Amsoft) 8.95 Hunchback 715 Sorcery 7.715 
Console Adventure 7.95 Hunter Killer 6.75 Spanerman 6.25 
Combat Lynx 7.75 det Set Willy 7.45 Splat 8.95 
Cubit 7.50 Killer Gorilla/Gauntlet 8.75 Steve Davils Snooker 6.25 
Dungeon Adventure 7.99 Magic Sword 8.95 Tank Busters 6.75 
Eletro Teddy 775 Manic Minor 7.25 Technician Ted 6.75 
Emerald Isle 675 Millionaire 6.75 The Hobbitt 12.75 
Erbert 5.20 Mini Office 5.95 The Quill 14.99 
Eric the Viking 8.50 Osprey 9.95 Tripods 11,25 
Football Manager 6.75 Pjamarama 175 World Cup Football 6.75 
Forest at Worlds End 5.95 Quackerjack 775 


Low Cost - Fast Delivery — Original Software 
Cheque/POs with order to: 


MICROWARE DISCOUNTS (Cleckheaton) sy) 


\. _ P.O. Box 22 Cleckheaton BD19 4UB. West Yorks. 
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THE BEST SOFTWARE... 


AMSTRAD CPC464 


ee 
MONITOR eee F 


THE MACHINE CODE SPECIALISTS 


ALWAYS TAKES TIME TO PERFECT. 


* Send SAE for fully detailed leaflet. 
* Available NOW by guaranteed 
48 hour mail order, by sending 
cheque/PO. for £19.95 to:— 


Dept.CA, PICTURESQUE, 6 CORKSCREW HILL, 
WEST WICKHAM, KENT. 


Are YOU a first rate 
PROGRAMMER? 


Thenjoin the Professionals! 


Award-winning Database Software needs 
more programmers, both for freelance work 
and permanent positions. 

Applicants must be fluent in both Basic 
and machine code on at least one of the 
popular micros, and preferably have 
experience of others. 

Experience in the software industry is not 
essential, but obviously candidates must 
have written good quality software in the 
past and samples will be required. 

Pay is negotiable, depending on age, 
experience and qualifications. There are 
excellent prospects for hard working, skilful 
programmers. 

Please send SAE, CV and an example of your 


work|which will be returned uncopied 
to. 


Peter Davidson, Software Manager, Database Software, 
Europa House, 68 Chester Road, Hazel Grove, 
Stockport SK7 5NY. 
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PRINTER BARGAINS 


VAT, Carriage & Cable Incl. 


BROTHER M1009 


* 80Col. 50c.p.s. 9x9 dot-matrix 

% 196 characters — enlarged, condensed italic, 
super & subscript 

* Fully Epson compatible 

* Friction feed standard. Tractor option at £18 

* Roll holder option £8 


MANNESMANN TALLY MT80+ Only £219 
* 80Col. 100c.p.s. 9x9 dot-matrix 
* Quality print style for letter writing 
* Tractor and friction feed 
TAXAN KP810 


* 80col. 160c.p.s. Draft Mode 

* 27 c.p.s. Near Letter Quality Mode 
* Friction and Tractor 

* Extra Near Letter Quality ROMS £28 


INTERFACES 
Parallel Interface Cable ......ccsccceeeeetereeeeeereeeeeseeees 


SOFTWARE 


Only £190 


Only £299 


Tasword 464 .. 
Tasprint 464 
Tascopy 464 


Disc Drive Business Software. 
e.g. Sales, Purchase Ledger, Nominal Ledger, Payroll, 
Database and more available on request. 


STRONG COMPUTER SYSTEMS 


Bry Cottage, Peniel, Carmarthen, Dyfed SA32 7DJ. 
Tel: 0267 231246 for assistance !!! 


me eN 
3X UNLOCK YOUR AMSTRAD 
with 
AMSKEY 


ONE OF THE FINEST UTILITIES AVAILABLE 


@ Protect or deprotect your software. 
Essential for transferring programs to 
disc. (Must not be used to infringe any 
copyright laws.) 

@ Multi colour and very user friendly. 
@ Full header details. 

@ On screen instructions and prompts. 
@ Choice of loading speed. 

@ FREE “PEEK-A-CODE” program, find 


the hidden words in your adventure 
games etc. 


Only £6.99 including p&p 


Overseas orders please add £1 postage 


Interlock Services Ltd 
37B New Cavendish St, 
London W1M 8JR. 

Tel: 01-609 8301 


Ces 
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EXPANDABLE RS232 
INTERFACE for the 
AMSTRAD 


3 Options 

®@ RS232 (Runs printer, modems, etc) 

@ Parallel (BBC user port compatible) 

e@ Sideways ROM (Graphics, modem, utilities) 


Any mix or all on same board; Software available to 
drive modems, cumana, touch pad, Marconi trackball, 
Eprom programmer 


@ CPM software 


to enable file transfer from Apricot, IBM, Mainframes etc 


@ Sideways ROM 


Fully buffered, accept 12 sideways ROMs of your choice 
ie Modem Driver, Printer, Driver, graphics etc. 


Both systems fully cased and supplied with operating 
software and manuals. 


Mail order welcome. Please send SAE for 
full list to: 


TIMATIC SYSTEMS LTD 


Registered Office: Sales and Repairs: 

NEWGATE LANE FAREHAM MARKET 
FAREHAM, HANTS PO14 1AN FAREHAM, HANTS 

Tel: FAREHAM (0329) 239953 Tel: FAREHAM (0329) 236727 


"Combat Lynx 


EN = 


DEALER ENQUIRIES WELCOME 


Make your AMSTRAD start paying for itself! 


Games are fun, but it’s time you used your computer for something really 
useful. Like bringing your financial affairs under contro! with 


MONEY MANAGER 


A professionally written business/personal financial management system. 
Record all your transactions for the past 12 months. Up to 100 entries per 
month. Up to 50 classes of income/expenditure, divided into groups. Up to 
9 accounts (current, savings, credit card, building society, VAT, cash etc). 
Fully selective monthly statements, annual statements, pie charts and 
multiple bar graphs. Full set of demonstration data included. 


Cassette + 12 page manual, only £14.95 inci p&p. 


From 


| Connect Systems 


3 Flanchford Road, London W129ND 


Ghostbusters 
Fighter Pilot 
Tank Busters 
Sir Lancelot 
Millionaire 
Hobbit 

Defend or Die 
Mission 1 Volcano 
Technician Ted 
Snooker 

Crazy Golf 
Stock Market 
All Interceptor 
Screen Designer 
Devpac 

Basic Pt. 2 
Harrier Attack 
Bridge Player 


£7.95 
£7.95 
£7.50 
£6.90 
£6.95 


Sorcery 

Jet Set Willy 
Chuckie Egg 

World Cup Football 
Ring of Darkness £8.95 
Darkstar £6.95 
Bert £5.25 
Hunchback £7.50 
Redcoats £5.95 
Roland Ahoy £7.50 
Ghouls £6.00 
All Level 9 £8.35 
All Anirog £5.95 
Pascal £30.00 
Basic Pt. 1 £17.00 
Mini Office £5.95 
Amsword £17.00 


Write or phone for free catalogue Cheques/P.O. to: 
MICRO COMPUTER WORLD 
1 LANE CLOSE, LONDON NW2 6Q2Z. Tel: 01-452 0893 
Beware of cheap bootleg software — all our titles are originals 
Access taken 
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AS a new reader, the article 
which took my eye in the 
February issue of Computing 
with the Amstrad was the 
Word Processor by Roland 
Waddilove called Text Editor. 

Having just invested in an 
Amstrad CPC464, this pro- 
gram seemed to be just what / 
was /ooking for without having 
to make a capital investment 
to one of the software houses. 

Undaunted by my previous 
experiences of hours of typing 
in programs, only to find that 
they either didn’t run at all or 
were full of errors, | decided to 
type in the program. 

You can imagine my am- 
azement when it ran first time 
(after correcting my own 
typing errors) and in fact did 
everything that the article said 
it would. 

After using the program for 
some time to type some 
letters, | realised that it could 
be improved considerably by 
the addition of a couple of 
extra options: 

1. An audible beep near the 
end of each line. 

2. The ability to print out 
selected lines of text. 

Thanks to Mr Waddilove’s 
use of descriptive variables, | 
was able to accomplish all of 
these. 

To provide an audible beep 
near the end of each line, the 
solution was quite simple. The 
addition of the following line to 
the program is all that is 
required: 


475 IF char$<>"" AND x%>1en 
gth-18 THEN PRINT CHR$(7) 


This line sounds a beep as 


2301 tempi=herestenp2=finis 
h 

2302 IF length<1 THEN lengt 
hel 

2303 LOCATE 10,4:PRINT"Tota 
1 lines available for print 


ing are "}(finish-here) /len 
gth 

2304 LOCATE 18,8: INPUT"Ente 
r line number to start prin 
ting from, "s;linel% 

2305 LOCATE 18,12: INPUT"Ent 
er line number to finish pr 


Making a fine 
program better 


soon as you are within ten 
characters of the end of line. 

To enable selected lines to 
be sent to the printer, add the 
new lines numbered 
2301-2309 (Listing 1) and 
also line 2415 to the program. 

This routine works by 
modifying the variable (here) 
to point to the start of text that 
we wish to print. This is 
achieved by lines 2301 to 
2309. 

Line 2415 restores the 
original value of (here) before 
returning to the main program. 
— Peter Whiteley, Bramhall, 
Stockport. 
® Thank you for the improve- 
ments. We're sure our readers 
will benefit from them. 


On right 
lines 


SINCE purchasing the 
Amstrad CPC464 last June, | 
have been rather disappoin- 
ted, to say the least, with the 
magazines and literature in 
general regarding this excel- 
lent machine. 

! would therefore like to 
take this opportunity to con- 
gratulate you on the publi- 
cation of Computing With the 
Amstrad. It’s a superb well- 
thought-out magazine which 
provides entertaining reading 


inting at."sline2% 

2306 IF line2é<linet% THEN 
LOCATE 1@,16:PRINT"Line nua 
bers entered incorrectly.": 
FOR de=1 TO 30QQ:NEXT:CLOs6 
OT0 2300 

2308 here=here+(length# (lin 
elh-1)) 

2309 finish=here+(length#() 
ine2%-linels)) 


2415 here=tempi:finish=temp 
2 


Listing 1 


from start to finish. 

Your articles such as “First 
Steps”, “Machine Code” and 
“Bits and Bytes” have been 
described in such a manner 
that what once seemed a task 
not to be undertaken has 
turned into an enjoyable 
“course”. 

! should also like to com- 
mend you on the listings in the 
magazine and give Mr Wad- 
dilove a pat on the back. —J.F. 
Watson, Barking, Essex. 


DIP’s 
the key 


CAN your A Team help me 
with a problem | have with the 
Brother M1009 printer? — 
double space line feed? 

According to the “Amstrad 
CPC464 User” the lead to Pin 
74 needs to be cut to stop 
these extra line feeds, 

How is it done? Can/ do it 

myself? Is there any risk of 
damage to the cable or 
printer? — P. Andrews, Con- 
isbrough, Doncaster. 
@ You should be able to 
switch off the automatic line 
feed by setting one of the DIP 
switches on the printer. 


Accessing 
codes 


HAVING just bought an 
Amstrad CPC464 computer, it 
having succeeded the Spec- 
trum, | am writing to try to 
acquire some information 
regarding connecting the 
computer to my Tandy DMP 
705 printer. 

This letter has been 
produced by the printer, which 
/ also use with a BBC Micro at 
the school where | am a 
teacher, and/ am pleased with 
the way in which it handles 
word processing using the 
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Easi-Amsword program. 

/ am, however, disappoin- 
ted that the Amstrad will not 
allow CHR$ codes above 127 
to be sent to the printer thus 
limiting its potential to letters 
only. 

The DMP 105 printer 
Supports not only a com- 
prehensive graphics selection 
but also the European charac- 
ter set which is useful for 
producing foreign-language 
material. 

/ would be grateful if you 
could advise me on how/ can 
access the CHR$ codes 
greater than 126 on the 
Amstrad, preferably from the 
software. 

May | close by congratulat- 
ing you on a most excellent 
publication. — John R. Steel, 
Darlington. 
@ You are one of many who 
have a printer with inac- 
cessible codes. Many of the 
useful functions available on 
printers are accessed by sen- 
ding characters with codes 
above 127. 

As of yet, we have found no 
way of printing such codes 
using software. This is 
because the problem lies 
within the Amstrad itself. 

What happens is that bit 7 
of each byte sent to the printer 
is ignored! Why this was done 
still remains a mystery to us 
all. 

Perhaps a hardware modifi- 
cation of some kind will solve 
the problem. 

Is there anyone out there 
who can assist? 


Utilities 
for the 
DD1 


THE following listing is for the 
Amstrad CPC464 computer. It 
is a utility program for use with 
the DD? disc drive. 

ERA=erase any program of 
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your choice. 

REN=RENAME any pro- 
gram. 

D/IR=directory listing of any 
chosen suffix groups, ie *.BAK 
will give all programs on disc 
with BAK suffix. 

LST=any chosen program 
from CAT menu. 

After typing in the listing, 
SAVE “ERDL”. To use, RUN 
“ERDL”. The disc contents will 
then be displayed and the 
utility program will be ready to 
use. Just follow prompt 
instructions. — Paul 
Reynolds, Sissinghurst, 
Kent. 


1@ MODE 2:WINDOW #1,1,88,25 
325 

15 BORDER Bs INK @,26s1NK 1, 

9sPAPER Q:PEN 1 

20 CAT 

3@ PRINTH,"Enter COMMAND ( 
ERA, REN, DIR or LST): "sal 
INE INPUT#! C$: CLSH4 

40 LET CSSUPPER$ (C$) 

50 PRINTH,"Enter FILE NAME 
to be "#0$+"'ED: "ysLINE I 

NPUTHS Fs CLOW 

40 IF C$="ERA" THEN {ERA, GF 

$ 

70 iF C$="REN" THEN PRINTHL 
y"Enter NEW FILE NANE for * 
+F$+"s "SELINE INPUTHL NSEC 
LGH1s REN, ONS, @FS 

88 IF C$="DIR" THEN CLS#G:C 
LS#1: DIR, @F$:G0T0 30 

90 IF C$="LST" THEN OPENIN 
FS:WHILE EOF=O: INPUT#9 ,NSsP 

RINT N$:WEND: PRINT: PRINT: PR 
INT#L,"PRESS ‘ENTER’ KEY TO 
CONTINUE. 6+. "$sLINE INPUT 
#1 ,C$ 

100 GOTO 1a 


Hints 
needed 


! HAVE recently bought Mis- 
sion One (Project Volcano), 
Message From Andromeda 
and Arnold Goes To Some- 
where Else (Nemesis), all 
adventures, but unfortunately | 
have never played any adven- 
ture before. 

In Andromeda | have col- 
lected all of the objects except 
the coin and the metal bar, but 
/ can’t get back into the ship 


(even with the airlock open). 

/ can't break the beam 
which is holding the ship. | 
have tried to use the detonator 
but it has no effect. 

/n Mission One | can’t get 
past the grill in the ventilation 
shaft. | have unscrewed it but! 
can't go forward as / will get 
electrocuted, Can anyone help 
me? 

Finally, | can’t get past the 
lake side in Arnold Goes To 
Somewhere Else. | have tried 
to use the carving and the 
paddles but they have no 
effect. 

/ would be grateful if 
anyone can get me out of this 
predicament. — P. Smith, 
Whitefield, Manchester. 


Eye on 
the logic 


FUNNY how much Al knows 
about me. | am all the people 
he describes in his excellent 
debugging article. 

/ have a little tip that may 
prove useful in this context. 
When debugging even a short 
line such as: 


1248 dat=PEEK (&9FFC+(ASC (CH 
R$(n))-32) #B+tat) 


it is all too easy to lose the 
original logic. | make a copy at 
line 1247 and REM 1240 out 
with a shifted 7 ("'"). Once 
de-bug has gone, usually a 
bracket too many or too few, 
renumber to 1240 and delete 
1241. 

One final point. Thank you, 
Mike Bibby. All previous 
machine code tutors have, 
after the first couple of pages, 
accelerated away and left me 
behind. To Mr Drury, who says 
Mike is too slow, Grrrr.. . — 
L.G. Barclay, Acton, 
London. 


Alien 
impasse 


WILL somebody please help 
us with Gems of Stradus? 
Having got totally besotted 
with the game, we have now 
come to a halt. We have 


encountered the Alien and can 
go no further. 

Have we missed a room on 
the way which holds the 
answer? We feel not. So is 
there anyone who can assist 
us before we all lose our 
sanity? — T.G. Stephens, 
Sittingbourne, Kent. 


Clogged 


up by 
garbage 


| WONDER if you could throw 
some light on a problem? | 
typed in the game “Mad 
Adder” from the April issue 
and it requires the use of the 
Escape key to exit from the 
game. 

However, | found the 
procedure affected the cass- 
ette handling routines 
whereby the LOAD”, RUN” or 
CAT connect took some 15 
seconds to respond with the 
prompt. 

Interestingly if | replied with 
the Escape to the prompt, the 
delay became 30 seconds, but 
thereafter remained at 30 
seconds, 

By using STOP at various 
points in the program | 
narrowed the problem to the 
A$=CHR$(233) in line 49 and 
line 73. The problem remained 
until | reset the machine, 
loaded MAD ADDER (without 
running it) or loaded and/or run 
another program. 

/ wrote a simple program, 
listing attached, and found 
after running this the delay to 
LOAD” etc was about 7 
minute 20 seconds to 7 
minute 25 seconds. 

/ started experimenting by 
removing certain instructions 
and found the removal of 
SP$(X,Y)=A$ cured the prob- 
lem. / noticed that line 73 was 
called 187 times in MadAdder 
and line 60 840 times inh my 
program and | wonder if this 
could have caused the dif- 
ferent delay times. 

/ further experimented and 
found removing line 30 solved 
the problem. | changed line 30 
to ‘a$=CHR$(65)’ and the 
problem appeared again. 

However re-loading, chan- 


ging line 30 to ‘a$="A", in 
effect the same as before and 
running did not produce the 
problem. | applied these many 
changes to Mad Adder with 
the same effect. /s there 
anything wrong with my 
machine? —J. Barrett, Read- 
ing, Berks. 


18 CLS 

20 DIM sp$(4a,21) 
30 a$=CHR$ (233) 
40 FOR x=1 TO 40 
50 FOR y=1 10 21 


8 sp$(x,y)sa$sLOCATE x,ysP 
EN AsPRINT a$ 

70 NEXT 

80 NEXT 


@ This is quite an interesting 
problem which often occurs 
when loading or saving pro- 
grams, and is caused by 
garbage. 

Garbage is redundant 
copies of variables — mainly 
strings, caused by extending a 
string beyond its initial length 
for example. 

These must be removed for 
operations like loading and 
saving which require a 2k 
buffer to be set up for input 
and output to disc or tape. 

To prevent this use: 


{0 OPENOUT “Dumay" 
20 MEMORY HIMEM=1 
30 CLOSEOUT 


at the start of your program 
which will set up a permanent 
buffer which is ready 
whenever it is required. 


No 
Escape... 


PLEASE can you tell me if 
there is any way to disable the 
Escape key on the Amstrad 
CPC464. | know and have 
used the function of the ON 
BREAK GOSUB. It does not 
disable the Escape key on 
INPUTS. Please can you tell 
me if there is any way to 
disable the Escape key on 
/NPUTS. — M. Rogers. 

@ As you say, ON BREAK 
GOSUB does not disable the 
Escape key on input. The only 
way round this is to use 
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INKEY$ instead for any input. 
Does anyone know how to 
completely disable the Escape 
key? 


Right on, 
Roland! 


| MUST congratulate you on 
an excellent magazine. I’ve 
had my CPC464 since last 
November after progressing 
through from 2X81 through 
Texas T199/4a and Spectrum. 
My main reason for writing is 
to congratulate Roland Wada- 
dilove on his excellent clear 
and easy-to-follow Star Fleet 
listing in the March issue. 
I’ve found with most list- 
ings from other magazines 
that they don’t make full use of 
the Amstrad's capabilities. 
Yes, sir, Roland is on to a 
winner as far as I’m con- 
cerned. Keep up the good 
work. — Dave Clarke, 
Streatham, London. 


Foreign 
accents 


/ AM a computing beginner. 
How can / allocate the foreign 
accents such as ~ (CPC464 
character 26), ° (39), , (44), ~ 
(162), B(177) etc. directly and 
permanently to the lower-case 
keys on the top row of my 
keyboard? 

! would still have the 
numbers on the separate 
right-hand pad. 

Also, once allocated can 
they be superimposed on to a, 
, u, n, etc., to produce 4, é, ui, fi 
etc? 

Without this my trans- 
lation-processing is imposs- 
ible. 

HELP!!! — Tony Shaw, 

Bridgwater, Somerset. 
@ Some of the characters in 
the character set are not 
available from the keyboard, 
but they can be printed using 
CHR§$(X). 

Any key can be program- 
med to produce any of the 
characters using KEY DEF. 

KEY DEF 69,1,66 will 
change the “A” key so that it 
produces “B”. 

So select the characters 


Post 


-———— 


WE welcome letters from readers — about your 
experiences using the CPC464, about tips you would 
like to pass on to other users... and about what you 
would like to see in future issues. 

The address to write to is: 


Postbag Editor 

Computing with the Amstrad 
Europa House 

68 Chester Road 

Hazel Grove 

Stockport SK7 5NY 


Dostbas | 


you want and program them to 
the keys required. 


Bar 
graphs 


1 BOUGHT an Amstrad 
CPC464 in July of last year 
and am over the moon despite 
the latest offer of free software 
which was a bit of a choker for 
this lad. 

! would like to answer a 
query put by S.G. Squires in 
your February issue about 
filling bar graphs. Although a 
solution was supplied by 
“Computing With the 
Amstrad”, it was (unlike the 
mag itself) a bit naff. Here‘s my 
solution: 


5 CLS 

10 INPUT "A number "sn 
20 FOR ist 105 

38 x=i #60 

40 2=15 

58 y=140 


4@ FOR p=8 TO n 
70 PLOT x,ytpyz 
80 DRAW x+44,y+p,2 
98 PLOT x+44,y,2 
100 NEXT p 

418 NEXT i 


My program as it stands will 
prompt for a number that will 
be the value determining the 
height of the five bars drawn 
on the screen. The number of 
bars is controlled in line 20, 
and if you find they're crowded 


off the screen you can make 
the bars slimmer by adjusting 
x + “whatever” in lines 
80/90, and the spacing by 
altering i * “whatever” in line 
30. 

The base line (zero) is 
positioned up or down the 
screen by line 50. Lines 
60-100 work the oracle by 
drawing the bars line by line up 
to the value “M” in line 60. 
Variable “Z’ controls colour 
value; and for minus values 
just replace line 60 thus: “For 
P=M to O”. — Tony Howe, 
Purley, Surrey. 


Special 
offers 


HAVING purchased an 
Amstrad CPC464 with a 
colour monitor just before 
Christmas, | am most discon- 
certed about the recent adver- 
tising, as regards the free 
software. 

My husband and / paid cash 
and were offered no discount, 
the children (4) had saved hard 
for many weeks to put their 
contribution towards it. Then 
this offer comes out and it is 
enough to make one really lose 
faith in Amstrad. 

Apart from this grievance 
we are more than happy with 
the computer, but / will really 
think twice when Amstrad 
bring another product on to 
the market. | really think this 
was a mean trick to play on the 
people who were faithful to 
Amstrad and had the con- 


fidence to buy a ‘‘new”™ 
computer on the market. — 
Mrs Laura Savage, Ware, 
Herts. 

@ Having been caught by this 
sort of things ourselves, we 
know how irritating it |can,be. 
However, without wishing to 
toady to Amstrad, we can also 
see their point of view. 

When you launch a new 
computer, no matter how 
satisfied you are with its 
quality, you can never predict 
how much of the market it will 
capture. Consequently you 
have to price pessimistically. 
Once it's established, you can 
then lower prices, or give away 
extra goodies. 

And, of course, a manufac- 
turer has to respond to his 
competitors, If they slash 
prices, he has to do something. 

Obviously, this is of little 
comfort to early buyers of a 
micro. However, it does mean 
a larger user base for the micro 
in the end — which can only 
benefit Amstrad owners. 

And your Amstrad, even 
without the software, is still 
extremely good value for 
money. 


Monitor 
choice 


/ WAS interested in the letter 
from Mr Quemby (April issue) 
on the subject of a suitable 
colour TV/RGB monitor for the 
Amstrad. | recently trod the 
same path myself. 

My requirements were very 
similar to his. Having decided 
on the green-screen Amstrad 
to cater for my own main 
interests of word processing, 
handling of club records and 
adventuring in text only, / also 
purchased a portable TV/RGB 
monitor to serve as a second 
television for the family and 
also to satisfy my eight-year- 
old son, who requires colour 
when “zapping the aliens”. 

Having studied the market / 
narrowed the choice down to 
two — the Philips 2007 and the 
Ferguson TX — both 14in 
colour portables and both, | 
was assured, RGB-compatible 
with the Amstrad. 

/ purchased the Philips for 
its TV picture quality (although 

—— | 
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this is purely subjective) and 
have been more than satisfied 
with the resolution and colour 
rendition of the computer 
graphics. 

A further “plus” — and / 
don't know whether or not this 
applies to all other TV/ 
monitors — is that the Philips 
has both CVBS and RGB 
inputs and comes complete 
with a 5ft RGB connecting 
lead (6-pin DIN at each end). — 
B. Johnson, Leeds. 


Sorcery’s 
end 


1 SAW the advert for Sorcery in 
your April issue and bought 
the game. It’s fantastic and 
very addictive. 

After ten hours | finally 
completed it on Sunday March 
17. Please tell me — am | the 
first to complete the Amstrad 
version? 

My highest score is 82500. 

— Richard Harrison, Don- 
caster. 
@ It is always deadly to claim 
you're the first at anything! 
You are, however the first 
we've heard of. 

Judging by the scramble in 


our office for who's going to 
borrow our copy over the 
weekends, Sorcery certainly is 
something special! 


CB 
networks 


DO others find the same 
problem as myself when | try 
to use my computer in 
conjunction with CB networks 
for display and updating? 
This is the heavy inter- 
ference experienced which 
makes “copying” all but very 
local stations nigh impossible. 
Any constructive sugges- 
tions as to what / can do with 
my rig or computer, which 
might ease the problem, will 
be much appreciated by 
myself and many of my friends 
around the country. — Frank 
West, Ipswich, Suffolk. 
@ As I'm sure you're aware, 
you are suffering from stray 
signals which are being gen- 
erated by your CPC464 
(mainly from the monitor). 
Three possible remedies 
which will reduce the inter- 
ference are: 
1. Earth your CB rig with a 
heavy-duty copper cable 


which is sunk approximately 
1} metres into the ground. 

2. Screen your coax cable. 
RG8 coax cable will provide 
much better screening than 
more standard RG58. 

3. Use a separate power 
source for your CB such as a 
car battery. 

We hope this helps reduce 
those stray harmonics. 


Putting a 
business 
on disc 


1 HAVE launched my own 
business venture this month, 
and to help me in this have 
purchased a CPC464, printer 
and disc drive. Brilliant micro 
isn't it? 

Now, this is where Mr 
Bibby may be of assistance. 
The article written about the 
DDI-1 was kin to a bright light 
at the end of a Jong tunnel. 

Being a clerk/typist and 
unemployed for nearly three 
years, | have taken my wife's 
advice and “gone it alone”. Up 
to press it’s been a tremendous 
hit. 

One of my clients happens 


to be a builder. Now can you 
tell me how many individual, 
confidential reports | can keep 
on one disc. 

Can | keep invoices, VAT 
accounts, staff records etc, 
etc, together? In other words, 
can | keep one small business 
to one disc? 

Also, can you explain how 

modems can help in business. 
I've heard a bit about them and 
wondered if there is one 
available for the CPC464. — 
Peter Andrews, Doncaster, 
South Yorks. 
@ Asking what you can fit on 
a disc is a bit like.asking how 
long a piece of string is. To 
answer it properly, you'd have 
to have some knowledge of 
how disc files are constructed 
— not that they're difficult to 
understand. We'll be starting 
an easy-to-follow series on 
tape and disc files in a 
forthcoming issue. 

A modem — several of 
which are now appearing for 
the Amstrad — would be useful 
for a business if you had 
salesmen, engineers, etc who 
could keep in touch with 
“home base” via a modem. 
And, of course, you could use 
the business information avail- 
able on Prestel. 


The risky road to translation 


! WAS interested to see your 
Postbag request for an article 
on translating Spectrum Basic 
to Amstrad Basic. | hope that 
you and the potential con- 
tributor realise the risks you 
may be taking. 

lve already tried to make 
the conversion but, in several 
cases, without success. Ask 
the CPC464 to perform some 
of the Sinclair functions and it 
stumbles, coughs and 
responds with “Syntax error” 
or some other unwanted 
epithet. 

/n exposing this, the risks 
are; 
1. That Sir Clive will offer free 
C§s for life, for extolling the 
virtues of his micro. 
2. That Amsoft will refer your 
action to headquarters and 
Amstrad Electronics will 
administer an official rebuke 
for daring to question their 
Basic. 
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/t happened to me, 
although | haven't yet asked 
Sinclair for my trike. 

My first problem, which 
provoked the negative reac- 
tion from Amstrad, was to find 
an Amstrad equivalent of the 
Spectrum's VAL. This versatile 
function on the Spectrum will 
evaluate a mathematical for- 
mula and is used in this way in 
many published programs. 

For example: 


18 LET x=PI/6 
2@ LET a$ = "x42 + x#sin(x)" 
3@ PRINT VAL (a$) 


on the Spectrum produces a 
value of 0.535907, which is 
the result of the formula in line 
20, with the value in line 10 
assigned to it. 

On the CPC464, the answer 
is O, since the Amstrad VAL 
produces only the leading 
numeric group in a string. If 


the leading characters are not 
numeric, as above, the answer 
is zero. 

INPUT is another problem 
area in translation. Try to 
INPUT a mathematical string, 
of mixed alpha and numeric 
characters, as in line 20 above, 
and Amstrad Basic requires it 
to be defined as a string 
variable. 

/t is then unusable in 
mathematical operations on 
the variable. Just another 
example of Spectrum Basic’s 
versatility! 

Another example? Say to 
the Spectrum GOSUB 
(n+10*y) and it does so 
quite happily. This makes for 
more efficient programming in 
some circumstances and is 
used in many Spectrum lis- 
tings. 

Amstrad Basic recognises 
only numeric GOSUBs. Vari- 
ables are coughed up — 


invariably! 

Although encountered 
more rarely in programs, the 
Spectrum function TAN is not 
subject to the same numerical 
limitations as on the Amstrad. 

Ask the CPC464 to plot a 
tangent curve, over a wide 
range of angles, and it will stop 
with an error report. The 
Spectrum carries on plotting 
until it returns to values within 
the screen limits. 

Spectrum to Amstrad tran- 
slation is not so fearsome as it 
appears, otherwise. A small 
Basic extension ROM for the 
Amstrad would cure every- 
thing! 

I've no desire to knock the 
CPC464. /t's still extemely 
good value for money and, in 
most respects, outshines the 
opposition, but | wish that 
Locomotive had moved totally 
out of the steam age! — R. 
Barker, Redcar. 
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AMSTRAD AND C16 £7.95 


ALSO AVAILABLE FOR CBM 64 AND SPECTRUM 48K. 


WORLD CUP 


Can you lead your team to the World Cup? Up to nine 
players can play, each with a different team (country). 
Choose your team ron a menu Gh Cate then 
prepare to pla i n n 
and watch the 5 
Depending which {eam you are ip ag p 
either play an opponent or the computer 
all the ot! teams and you become 

Amazing animated action. 


ARTIC COMPUTING LTD, MAIN STREET, BRANDESBURTON, DRIFFIELD YO25 8RL 0401 43553 


THAT'S... 


PACKAGE CAW DO! 


VWORD PR 
ies Aiea o — Ideal for writi 
ae oe Features: Constant ee 
ae tae oe: word count (even 
Se per minute) @ Normal 

ight text on screen or Snel 


SPREADS 
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lene eu and columns @ ae 

throughout nee stanly ead oe 
ea 

future amen ee @ Sve resuiteror 


GRAPHICS 
; — Turn th 
an ' ose : 
See visual display! ae ee 
ae art @ Pie chart @ Graph ures: 3D 
\TABAS ; 

Bee © — Use it like an office fili 

! Features: Retrieve files meg 

ata 


keystroke @ 
: Sort 
@ Print @ ns Replace @ Save 


IN 
IN Gr rice 


UICK TO LEAR 


SPREADSHEET 


igo os Caan apse 
JANUARY FEBRUARY MARCH 


= noehown= 
17 “HONEY 


2} MORTGAGE 
zt FOOD 


4s FUEL 
Si LEISURE 
OTHER: 


JUST LOOK WHAT THIS. sox 


RECORD No- 


NDREWS 
AMES 


SURNAME > JONES 

FIRST NAME: Simon FIRST NAME? J 
ADQRESS1: © BROAD LANE ADDRESS? 32 ELF ROAD 
ADDRESS=+ LIVERFOOL DDRESS2* HEREFORD 
TELEPHONE? 0% a 0 TELEPHONE? 321-62345! 
AGE: 42 GE: 13 


RECORD No- > 


RECORD No. > 
SURNAME? ANDREWS SURNAME? ANDREWS 
FIRST NAMES PETER FIRST NAMES PETER 
Pppressi: 12 ELF ROAD ADDRESS: 12 ELF ROAD 
ADDRESS2: HEREFORD ADDRESS=* HEREFORD 
TELEPHON! 21-625451 TELEPHONE? 321-62045! 
AGE: 19 AGE: 
RECORD Noe > RECORD No. > 
SURNAME: SMITH gURNAME: BRINN 
FIRST NAME! JANE FIRST NAME? KIETH 
ADDRESS! 42 HIGH STREET |@DDRESS1? 15 MILL_ROAD 
ADDRESS? + SALFORD ADDRESS= + WARRINGTON 
TELEPHONE? pz 61a TELEPHONE? ag3-B0725 
Ace: 27 ace: 3 


RECORD No- 4 


RECORD No. 4 
guRNAME: BROWN 


gurnane: YATES 

inst NAME: TAN FIRST NAME: TAN 
TapDRESS!! 177 FORD ROAD ' @DDRESS1: 17 LEAWARD | 
ADDRESS2* GULLHAM ADDRESS2 + NORWICH 
JELEPHONE* 2-986 76545 TELEPHONE: 871 345 
AGE: 35 AGE: 2} 


RECORD NO- 


SURNAME: ANDREWS 
FIRST NAMES JAMES: First NAME: Jt 
@ppRessi: 12 ELF ROAD ADDRESS1* Un ROA 
HEREFORD ADDRESS2? NANTWICH 
1-62 TELEPHONE? 6B1-458° 


and it’s all at 


price of just 


.N, EASY TO USE 
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i Please send me a copy of Mini Office for my Amstrad CPC464 


GocH Tt © | enclose my cheque made payable to OO Amstrad cassette £5.95 
5 ; Database Publications Ltd. © Amstrad 3” disc £9.95 


Please tick box 


: | wish to pay by 
O Access ©) Visa ‘No. Expiry date 


Signed 


the unbelievable |“ 


Address 


POST TO: Mini-Office Offer, Database Software, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. CA 
Bie ee ee 


5 99 DATABASE SOFT WARE 


3” DISC £9.95 


You're never too young to 


play a Magical Adventure on 
the Amstrad CPC464... 


Based on the style of the 
classic computer adventures — 
but written so that even small 
children can learn to find their 
way around, encouraged by 
colourful graphics and 
exciting sound effects. 


The pack contains a 48-page 
full colour storybook 

PLUS 

a full length multi-location 


adventure on cassette 
for only : 


£8.95! post ree 


Read the book 
— then play 


nture 
omputet Adve 
Cc 
ey xinces> . 
of 4 the Fros 
an Amstrad 


«ation 
se puntic? cPc464 


A patab™ 


Please send me the complete Magic Sword pack for the (J! enclose my cheque for £8.95 
Amstrad CPC464 containing storybook and cassette to: payable to Database Publications 
| (Or debit my Agcess/Visa card: ] 
Name 
WB Address No. | 
Signed " 


| SEND TO: Adventure offer, Europa House, 68 Chester Road, Hazel Grove, Stockport SK7 5NY CA6 
=~ a se -— ee = ES we eee a 


Amstrad you'll want € 
to read EVERY issue! 


JANUARY: Smiley: Guide Smiley 
round the labyrinth avoiding Grum- 
pies, Code: Be a mastermind. 

Binary: Baffled by binary bits? Let 
our utility help you out. Dancer: 


Give your fingers a rest 


All the program listings from each 
month's issue are available for only 
£3.75 on cassette and £6.75 on disc. 


Simple but fun. This is a lovely 
mover. Trapper: Pen the monsters 
of the maze. Scroller: A slick 
sideways scrolling routine. Letter 
Litter: Learn the keyboard. 


FEBRUARY: Digger: Search for 
crystals and avoid the aliens. 
Simon: Our version of this classic 
game, Kingdom of Craal: A 
devious fantasy. Text Editor: A 


powerful word processor. Reaction 
Timer: Test out your reactions. 
on this simple little program. 
Origins: Changing the graphics 
origin produces dramatic effects. 


MARCH: Starfleet: Can you 
qualify as a starfleet pilot? Swamp: 
doin the battle against giant frogs. 
Parachute: Parachute to earth in 


this educational program. Dump: 
Screen dump utility for Modes 0 and 
1. Hexer: A hexadecimal loader. 
PLUS ... 3D Four in a Row. 


APRIL: Mad Adder: Appease our 
aggravated adder. Egg Blitz: Eggs, 
boy scouts and a stunt pilot make up 
the fun. Simple Sprites: Create 
sprite-like effects. Caesar Cipher: 
Crack the code. Pilot: An easy to 


learn CAL language. Spelling: 
Lear to spell with this educational 
game. Aleatoire: The odd ways 
mariners make decisions. Palin- 
drome Tester: Slick string handling 
techniques. 


MAY: Tronn Cycles: Enter the 
Maze and pit your wits in this two 
player arcade classic. Castle of 
Fear: Fantasy is the order of the day 
in this baffling concoction. Mouse: 
Can you trap the furry fellow in this 
simple but addictive game? Cedric: 
Fun with shape recognition in this 


novel interpretation of pelmanism. 
Character Maker: Define your 
own characters with our superb 
utility. RSX: New commands for 
your micro. Cards: Baffle your 
friends with an apparently simple 
computer card trick. Trees: A clever 
routine to create ‘trees’. 


JUNE: Easydraw: Hours of fun 
and entertainment. This versatile 
graphics utility allows you to create 
and manipulate your own pictures, 
saving them to tape or disc. Da 
Bells; Hilarious arcade action for 
the whole family with the obligatory 
Hunchback on the ramparts. Can 
you rescue Esmerelda? AMmon: A 


How to keep your 


collection complete 


Bound in rich burgandy pve and 
bearing the Computing with the 
Amstrad logo, this handsome 
binder will hold a year’s supply of 
the magazines firmly secured in 
place with metal rods. 


Only £3.95 (UK) 
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superb machine code monitor to 
complement our 280 series, Menu: 
Create colourful menus with this 
intelligent disc utility. Nim: Baffle 
your friends with Alleatoire’s simple 
routine to play the famous math- 
ematical game. Quads: A clever 
routine to display expanding quad- 
rilaterals. 


Weare able to offer you annual subscription for the 
monthly listings cassette for only £40, and on 3" 
disc for only £70. 


Protect your keyboard with our 
luxury dust cover made of soft, 
pliable, clear and water-resistant 
vinyl, bound with strong cotton 
and decorated with the 
magazine's logo. 


Dust Cover Only £3.95 
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ORDER FORM 


All prices include postage, packing and VAT and are valid to July 31 
Please enter your requirements by ticking boxes 


UKE£12 6001 
Annual EIRE £13 (IR £16) 6002 
subscription Overseas (Surface) £20 6003 
Overseas (Airmail) £40 6004 
Please send me my free May issue listings cassette =) ] 
Commence with issue TOA == 
i January 6006 
Back issues Feuer, 6007 
£1.25 UK March 6008 
£1.50 Overseas (Surface) April 6009 
May 6010 
TOTAL —|] 
Tapes January (Smiley) 6020 
February (Digger) 6021 
#3.(o (UK Se Overseas) March (Starfleet) 6022 
April (Mad Adder) 6023 
May(TronnCycles) 6024 
June (Da Bells) 6025 
IKON AL 
‘Discs een 
£6.75 (UK & Overseas) Pata) a 
April (Mad Adder) 6063 
May (Tronn Cycles) 6064 
June (Da Bells) 6065 
ANOMV NG: a 
Cassette tape and disc |] 
annual subscription 
Tape £40 (UK & Overseas) 6005 
3” Disc £70 (UK & Overseas) 6059 
Commence with tape/disc 
(state month) TOTAL, === 
Dust Cover 6037 [—] 
£3.95 (UK & Overseas) Kony Niy | 
Binder 6038 [___] | 
£3.95 UK 
£5.00 Overseas TOTAL, = | 
Payment: please indicate method () TOTAL — 
([) Access/Mastercharge/Eurocard 
Cardi No) Se) Sr Se eee ee 
(2 Barclaycard/Visa ] 


Card Nos Se ee es eee 
(71Cheque/PO made payable to Database Publications Ltd. 


Signed 


Send to: 
Computing with the Amstrad, FREEPOST, Europa House, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. 
(No stamp needed if postedinUK) _ Please allow 28 days for delivery 


YOU CAN ALSO ORDER BY PHONE: 
061-480 0171 
(24 hours) 
Don't forget to quote your credit card number and full address 
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POOLSWINNER 


THE ULTIMATE POOLS PREDICTION PROGRAM ; POOLSHTIOR 


@ MASSIVE DATABASE Poolswinner is a sophisticated Pools 
prediction aid. It comes complete with the largest database 
available - 22000 matches over 10 years. The database updates 
automatically as results come in. 

PREDICTS Not just SCOREDRAWS, but AWAYS, HOMES 
and NO SCORES. 

@ SUCCESSFUL SELEC guarantee that Poolswinner performs 
significantly better than chance. 

@ ADAPTABLE Probabilities are given on every fixture ~ 
choose as many selections as you need for your bet. The 
precise prediction formula can be set by the user ~ you can 
develop and test your own unique method 

© SIMPLE DATA ENTRY All English and Scottish team names 


Boxed, with detailed 
instruction booklet 


are inthe program. Simply type in the reference numbers from the screen. Or use FIXGEN 
to produce fixture list automatically (see below) 

@ DISC/MICRODRIVECOMPATIBLE All versions (except Apple and IBM) are supplied 
on tape, with simple instructions for conversion to disc/microdrive operation. 

(This seasons results are supplied with the package so that predictions can start immediately.) 


AVAILABLE FOR Spectrum (48K), Commodore 64, VIC 20 (+ 16K), AMSTRAD 


CPC 464, BBC B, Atari (48K), 2X81 (16K), Dragon, Apple Il, IBM pc, ELECTRON 
PRICE £15.00 (all inclusive) 


KT LAST: No more struggling for hours to get the 
FIXGEN 84/ fixture list into the computer. FIXGEN has been 
programmed with all English and Scottish 
fixtures for 1984/5. Simply type in the date, and the full fixture list is 
generated in seconds. Fully compatible with Poolswinner. 
POOLSWINNER with FIXGEN £16.50 (all inclusive) 
Fixgen alone £5.50 (yearly updates available) 


Coursewinner is designed to 
V3 allow you to develop and test 
your own unique winning 
THEPUNTERSCOMPUTERPROGRAM §=— fy. Using information from 
daily newspapers or ‘Sporting Life’, the most important factors can be input and 
analysed. The program is supplied with a database detailing best trainers and 
jockeys, and effect of the draw for all British courses. (Flat & National Hunt.) 
AVAILABLE FOR Spectrum (48K), Commodore 64, BBC (B), AMSTRAD CPC 454, Atari (48K), Apple II 


PRICE £15.00 (all inclusive) 


AVAILABLE (RETURN OF POST) FROM... 
—= 


selec 
—— ee 
phone 24 hrs SOFTWARE phone 24 hrs 
37 COUNCILLOR LANE, CHEADLE, CHESHIRE. @ 061-428 7425 


FOR THE AMSTRAD 


THE COMPLETE CODE DEVELOPMENT 
SYSTEM FOR THE AMSTRAD CPC 464. 
3 ASSEMBLER % MONITOR * TEXT EDITOR 


“The Arnor system is the best editor/assembler to 
be released for the AMSTAD so far” - PCN 100 
“For flexibility and ease of use, ARNOR is easily the 
best | have seen” Pop. C. Wkly Vol 4 No 8 
“assemblers... look no further, ARNOR’s is the best | 
have seen... by far the easiest to use and most 
friendly | have come across” 

- Computing with the Amstrad. April 1985. 


Now available in ALL THREE formats 


Tape (only) £13.50 


Disc £26.90. 
416K ROM + multifunction adaptor 
(All prices include VAT, p & p) 


Cheques/Po’s to ARNOR Ltd Dept 0 
PO BOX 619, London SE25 6JL 
-Overseas - no extra - Trade enq's welcome - 


Make MAXimum use of your AMstrad 


£59.90 


Technical 
01.852.2174 


Hotline 
01.653.1483 
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(AN ADVANTAGE AT LAST! ) 


JOIN THE INDEPENDENT USER GROUP FOR THE AMSTRAD CPC464 


For the same price as one games cassette, you get: 

@ 12 monthly newsletters with ideas, reviews, letters and 
more. 

@ Access to a database of information, programs and 
advice. 

@ Opportunities to communicate with other computer 
users. 

@ Offers of reasonably priced software and accessories. 

Send £8.95 to: 
ADVANTAGE, 33 Malyns Close, 
Chinnor, Oxfordshire 
or send large stamped addressed envelope for more information y 


SIMPLE ACCOUNTS 
AMSTRAD CPC 464 


@ FULL ANALYSIS OF INCOME & EXPENDITURE 

@ POWERFUL ENTRY SEARCH ROUTINES 

@ CONSTANT UPDATE OF CREDITORS AND DEBTORS 
@ SPECIAL IN-DEPTH ANALYSIS OPTION 

@ VAT REPORT @ DATE SORT 

@ MONTHLY AND YEAR TO DATE REPORTS 

@ FULLY DOCUMENTED @ EASY TO USE 


ONLY £29.95 including VAT and carriage 


Full specification manual and worked examples available on request. 
CORNIX SOFTWARE LTD 
16 Kneesworth Street, Royston, Herts. SG8 5AA. 
Tel: Royston (0763) 46065 
Specialists in business and financial software for the serious user. 


( SHEKHANA COMPUTER SERVICES 


Our Our 

RAP Price RAP Price 
Ghostbusters 10.99 9.99 Hunchback II 8.95 775 
American Football 993 825 Daley Toms Decathlon 895 | 7.75 
Sorcery 8.95 7.90 Kong Strikes Back : 895 7.75 
Master Chess ........ 895 7.50 Steve Davis Snooker ..... 795 6.50 
Blagger 8.95 7.90 Classic Racing . 8.95 715 
Dark Star 7.95 6.76 — Technician Ted ... 795 6.90 
Gillians Gold 695 6.25 Combat lynx neces = B95 8.00 
Flight Path 737 : 6.95 5.90 Forest at Worlds End ......... 600 4.75 
Football Manager ......... 7.95 6.76 Message from Andromeda 600 4.75 
Sir Lancelot 3 6.95 5.90 Jewels of Babylon .......... 600 4.75 
Fighter Pilot ........ 895 7.60 Heroes of Karn . 600 4.75 
Jet Set Willy 895 7.80 Chopper Squad . ; 600 4.75 
Manic Miner 895 7.60 Azimuth (Head Alignment) 899 7.95 
The Hobbit 1495 12.50 Flight Sim (Myrddin) 11.95 1090 
Defend or Die 795 650 Guide to Basic Part | 19.95 15.00 
Pyjamarama ..... 895 7.50 All Level SGames 995 8.25 

Cheques/PO to: 
SHEKHANA COMPUTER SERVICES 
653 Green Lanes, London N8 0QY 


(Mail Order address only). Tel: 01-800 3156. (SAE for List) — or visit our shop at Marbles 


Shopping Centre, Unit 11, 527-531 Oxford Street WIR 1DD. Open 7 days a week from 
10am — 19.00pm (Opps. Marble Arch Tube Station) 
Above discounts applicable only on production of this advert at our shop 


Computing with the Amstrad 


Amstrad CPCuGH 


Speech Synthesizer 


The dk’tronics Amstrad speech synthesizer and powerful stereo amplifier uses the popular SLO/256 speech chip and 
has an almost infinite vocabulary. It is supplied with a text to speech converter for ease of speech output creation. 
Everything you wish to be spoken is entered in normal English, without special control codes or characters, it is there- 
fore extremely easy to use. The voicing of the words is completely user transparent and the computer can carry on its 
normal running of a program while the speech chip is talking. The speech output from SLO/256 is mono and directed to 


both speakers. 


Stereo Output 


To utilise the Amstrad stereo output on the back 
of the computer, the interface has a built in stereo 
amplifier, this gives all sound output a totally new 
dimension and greatly improves the sound quality 
and volume over the computer’s internal speaker. 
Any sound that previously came out of the mono 
speaker will now be sent out via the interface in 
stereo. All programs that use the sound in anyway 
(i.e. commercial software) will now output 
through the interface, which is fitted with volume 
and balance controls . 


Speech Synthesis 


The Amstrad speech synthesis utilises parts of the 
spoken word known as allophones. These are 
actual sounds that go to make up speech. The 
SP0256 allophone speech synthesis technique 
provides the ability to synthesize an almost un- 
limited vocabulary. Fifty-nine discrete speech 
sounds (allophones) and five pauses are stored in 
the speech chip’s internal rom. 


Text to Speech 


Although there are only 26 letters in the alphabet, letters 
have a totally different sound when used in different words. 
For example, The ‘‘a’’ in ‘Hay’ is much longer and softer 
than in ‘Hat’. When you speak you automatically make 
adjustments because you know just how a word should sound 
Not quite so easy with a computer. 

The machine code software is mainly developed to this mode 
of operation. 3.5K is used for tables which contain the rules 
& exceptions to the rules of the English Language. 

e.g. I before E except after C) This therefore allows the user 

to enter words to be spoken in normal English. 


Speakers 


Supplied with the Speech Synthesizer are two high quality 4" 
speakers these have been designed to compliment theAmstrad 
Computer. They are fitted with 1 metre of cable and can be 
positioned for the best stereo effect. The synthesizer inter- 
face fits neatly on to the rear of the computer. It has a 
through connector to enable other interfaces (e.g. Disc Drive) 
to connect to the rear of the synthesizer for ease of expansion 

Please send S.A.E. for a copy of the instruction manual 
which will give full and comprehensive details. 


dK tronic 


Saffron Walden, Essex CB113AQ 
Tel: (0799) 26350 10 lines 


New Basic Commands 


There are 8 new Basic Commands which control all the 
functions of the interface. Making the Synthesizer very easy 
to use. You can even control the speed at which it will talk 
to you. Or use the synthesizer to create sound effects like 
a fourth sound channel. 


10 PRINT ‘‘ ‘AMSTRAD‘”’ 

The above is an example of the Syntax for entering speech 
into the computer and shows how simple it is to use. 

The instruction book gives comprehensive details and 
examples of how to use the interface both from machine 
code and basic. 


How to Order 


The Amstrad Speech Synthesizer costs only £39.95. You can 
obtain your synthesizer through any good computer store or 
by completing the order form and returning it to: 

dk’tronics Limited, Shire Hill, Saffron Walden, Essex.OR 

by telephone quoting your barclaycard or access number. 
Orders normally despatched within 24 hours. 


Please rush me' 


...[QTY] Amstrad Speech Synthesizer at £39.95 +£1.25 p&p 


Tenclose cheque/PO/Cash for Total £..........0..cccs0eeeees 
or debit my Access /Barclaycard No. 


fie i efi [ea fe 


Signature.. 


Gems of Stradus Star Avengers 


if cuma 
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Home Budget 


Logo Database ZEN Assembler EASIVAT 
An outstanding selection from Kuma’s rapidly expanding range of Entertainment 
and Application Software for the Amstrad CPC 464 Micro-computer. 
fi) BOOK @ The Amstrad CPC 464 Explored. 


4 This superb book is designed to let eee 
AWS Yp, every CPC 464 user, at whatever I Kuma Computers Ltd., Unit 12, Horseshoe Park, 


level, get the most from his Horseshoe Road, Pangbourne, Berks RG8 7JW. 
computer. After an introductory | Please send full catalogue on Amstrad CPC464 | 
section on the special Basic products. 

features, the book looks in depth at Name ... | 


the excellent sound and graphic Address 

facilities. seh | 
eee eee from selected branches | fice cet rie Ae i 
e pe ponada, Trade Enquiries Phone 07357-4335 
EY ts 7 John Menzies | eS ES 


Visitors wishing to call at our Pangbourne Manufacturing and Distribution Centre are advised to phone 07357-4335 first for an early appointment. 


